3 lines
104 B
Perl
3 lines
104 B
Perl
|
$string = "Jose\x{301}"; # "José" in NFD
|
||
|
|
$flip = join("", reverse $string =~ /\X/g); # becomes "ésoJ"
|