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