12 lines
322 B
Perl
12 lines
322 B
Perl
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";
|
|
}
|
|
} |