El siguiente ejemplo ilustra el uso de las funciones de cambio de caja (tales como uc , lc , lcfirst y ucfirst ) asi como el uso de reverse con cadenas unicode:
lhp@nereida:~/Lperl/src/testing$ cat -n alfabeta1.pl 1 #!/usr/local/bin/perl -w 2 use strict; 3 use utf8; 4 use charnames qw{greek}; 5 binmode(STDOUT, ':utf8'); 6 7 my $x = "\N{alpha}+\N{beta} = \N{pi}"; 8 print uc($x)."\n"; 9 print scalar(reverse($x))."\n"; 10 11 my $y = "áéíóúñ"; 12 print uc($y)."\n"; 13 print scalar(reverse($y))."\n";Al ejecutarse, el programa produce la salida:
lhp@nereida:~/Lperl/src/testing$ alfabeta1.pl Α+Β = Π π = β+α ÁÉÍÓÚÑ ñúóíéá
Casiano Rodríguez León