perl -CS -e 'print "a\xe4m\n"' | perl -CS -pe 'print; $_=uc'