while ($a= <STDIN>) { if ($a =~ tr/a-z/A-Z) { print "$a\n"; } if ($a =~ tr/A-Z/a-z/) { print"the uppercase is $a\n"; } elsif ($a =~ tr/[A-Z]/[a-z]/) { $b=$a; $b=~tr/a-z/A-Z/c; print "$b\n"; } }
Leave a comment: