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