Next Trivial Utilities 155

unrecv

        foreach $file (@ARGV) {
        ...
          $/ = '';
          $header = <IN>;
          $header =~ s/^Received:\s+.*\n(\s+.*\n)*//mg;
          print OUT $header;
          $/ = "\n";
          while (<IN>) {
            print OUT;
          }
        }


Next Menu Copyright © 2012 M. J. Dominus