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