use strict; use warnings; my $in = ; chomp $in; $in =~ tr/A-Za-z/a-zA-Z/; print $in;