Tabs to spaces

From JmPm

sub Tab2Space {
   my ($line) = @_;
   $line =~ s/^\t/        /;   # 8 leading spaces if initial tab
   while ($line =~ s/^([^\t]+)(\t)/$1 . ' ' x (8 - length($1) % 8)/e) {
   }                           # replace each tab with right num of spaces
   return $line;
}