use feature qw(say);
use charnames qw(:full);
binmode STDOUT, ':utf8';

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