6 lines
141 B
Perl
6 lines
141 B
Perl
|
while (<>) {
|
||
|
|
print "Here's what you typed lowercased: " . lc . "\n";
|
||
|
|
print "Here's what you typed uppercased: " . uc . "\n";
|
||
|
|
}
|
||
|
|
|