To expand on what
moritz originally said, you should replace
$mystring = $mystring += $_=~ tr/ ,\.\t\n//;with
$mystring .= $_=~ tr/ ,\.\t\n//;
What the ".=" operator says is "concatenate whatever follows on the right to the end of whever is specified to the left".
Revised:This is not an attempt to solve the original problem.
moritz pointed out that "+" was not the concatenation operator, "." was. I tried to expand on this by showing that ".=" was more efficient still (from a Golfers perspective).