my $string = "\N{LATIN CAPITAL LETTER U}\N{COMBINING DIAERESIS}";
say $1 while ( $string =~ /(\X)/g );
dXNlIGZlYXR1cmUgcXcoc2F5KTsKdXNlIGNoYXJuYW1lcyBxdyg6ZnVsbCk7CmJpbm1vZGUgU1RET1VULCAnOnV0ZjgnOwoKbXkgJHN0cmluZyA9ICJcTntMQVRJTiBDQVBJVEFMIExFVFRFUiBVfVxOe0NPTUJJTklORyBESUFFUkVTSVN9IjsKc2F5ICQxIHdoaWxlICggJHN0cmluZyA9fiAvKFxYKS9nICk7Cg==