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