while ($Input = <>) {
print "\L$Input\E";
print "\L$Input";
chop $Input;
if ("\L$Input" eq "lowercase") {
print "Found lowercase\n";
}
print "\U$Input\n";
if ("\U$Input" eq "UPPERCASE") {
print "Found UPPERCASE\n";
}
}