$string =~ tr/ \t//d;