my $tab = 8;
s/\t/" " x $tab/ego;