my $mystring = "Bar";

print "\U $mystring--\n";
print "\L $mystring==\n";
$big = "\u$little"; 
print "$big\n";