$_ = "    \ta";
print tr/ \t//d, $_;
# prints "5a"