... map { (my $x = $_) =~ tr/a-zA-Z/A-Za-z/; $x } ...