$string =~ tr[\t ][ ]s