perl -Mstrict -we 'my $string="random\ttab\tseparated\twords";
sub tab2space{my ($string,$spacing)=@_;
while($string=~/\\t/){
print $string,"\n";
my $index=index($string,"\\t");
$string=~s/\\t/" " x ($index %8)/e;
}
return $string}
for (0..80){print $_ % 10;}
print "\n", tab2space($string) , "\n";'
012345678901234567890123456789012345678901234567890123456789012345678901234567890
random	tab	separated	words