#!/usr/bin/perl
# Program: untabify  Author: Vlado Keselj 2002-7

while (<>) { print &untabify($_) }

sub untabify {
  local $_ = shift;
  my ($r, $l);
  while (/[\t\n]/) {
    if ($& eq "\n") { $r.="$l$`\n"; $l=''; $_ = $'; }
    else {
      $l .= $`;
      $l .= ' ' x (8 - (length($l) & 7));
      $_ = $';
    }
  }
  return $r.$l.$_;
}