RosettaCodeData/Task/Unicode-strings/Perl/unicode-strings-2.pl

4 lines
105 B
Perl

$四十二 = "voilà";
print "$四十二"; # voilà
print uc($四十二); # VOILÀ