language: Perl (perl 5.16.2)
date: 625 days 15 hours ago
link:
visibility: public 
1
2
3
4
5
6

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;
  
print $s1," ", length($s1);