Perl 5.12 # perl -MEncode -E "say Encode::encode_utf8(uc qq/äöüß/)";
ÄÖÜSS