RosettaCodeData/Task/Reverse-a-string/Perl/reverse-a-string-2.pl

mirror of https://github.com/acmeism/RosettaCodeData.git
$string = "Jose\x{301}"; # "José" in NFD
$flip = join("", reverse $string =~ /\X/g); # becomes "ésoJ"
	`$string = "Jose\x{301}"; # "José" in NFD`
	`$flip = join("", reverse $string =~ /\X/g); # becomes "ésoJ"`