Select Code to Download

# replace (s///) all (g) non word-characters \W with nothing
$mystring = $mystring += $_=~ s/\W//g;
print lc($mystring);  # lowercase