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

##</code><code>##

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