utf8::upgrade($aaa); $bbb = uc $aaa; print "$bbb\n";