use Unicode::Normalize;
my $lower_nfc = NFC(lc(NFD($string)));

##</code><code>##

use Unicode::UCD qw(charinfo);
use Unicode::Normalize;
my $nfd_string = NFD($string);
$nfd_string =~ s{(\p{Lu})}{chr(hex(charinfo(ord($1))->{lower}))}ge;
my $nfc_string = NFC($nfd_string);

##</code><code>##

$h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";