Help for this page
$message = uc $message; # uppercasify $message =~ tr/ .;,/d; # remove spaces and punctuation $message =~ tr/13457/least/; # un-1337