if ($foo =~ tr/a-zA-Z//) {