$mystring = $mystring += $_=~ tr/ ,\.\t\n//;