language: Perl (perl 5.16.2)
date: 449 days 16 hours ago
link:
visibility: private 
1
2
3
4
5
6
7

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 );