$ perl -we'$_="\t\tYou\tare\tmaking\t\ttoo\n\tmany\tassumptions...\t";

  s/(.*?)(\t+)/$1." "x(length($2)*8-(length($1)&7))/ge;
print'
                You     are     making          too
        many    assumptions...  $