Du kannst einen String auch noch mit dem Spezialzeichen \U auf Großschreibung oder mit \L auf Kleinschreibung konvertieren.
U:\>perl
print "\LUIOP";
^Z
uiop
U:\>perl
print "\Uiop";
^Z
IOP
U:\>