use locale;


##</code><code>##

setlocale(LC_CTYPE, "pl");


##</code><code>##

  use locale; $a="Pérl"; $b = uc($a); print $b;


##</code><code>##

for ($x = 0;$x < 255;$x++){
	$_ = chr($x);
	if (/\w/){ print "$_ ";}
}