You can also use \U and \u in a double quoted string. Such as:

   my $i = 'hellO, worLd';
   print "\U$i\n"; # All uppercase
   print "\L\u$i\n"; # All lowercase, except the 1st letter
[download]