Select Code to Download

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

  s/(^|[^\t]+)(\t+)/$1." " x (length($2) * 8 - (length($1) & 7))/ge;
...


( s/(.*?)(\t+)/...

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

...
print'
                You     are     making          too
        many    assumptions...  $