fork(1) download
my $g_tab_width = 4;

my $s1 = "Where\tis pancakes house?";
$s1 =~ s{(.*?)\t}{$1.(' ' x ($g_tab_width - length($1) % $g_tab_width))}ge;

my $s2 = "Where\tis pancakes house?";
$s2 =~  s/(.*?)\t/$1    /g;

print $s1, "\n", $s2, "\n";
Success #stdin #stdout 0s 4596KB
stdin
Standard input is empty
stdout
Where   is pancakes house?
Where    is pancakes house?