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

##</code><code>##

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