pakkut

   1 #!/usr/bin/env perl
   2
   3 # pakkut
   4 # File ID: 096d3c90-5d42-11df-a6c3-90e6ba3022ac
   5
   6 use strict;
   7 use warnings;
   8
   9 $| = 1;
  10
  11 open(PipeFP, "| uudecode | gzip -d") or die("$0: Can't open pipe: $!\n");
  12 while (<>) {
  13         s/[#%";!{}]//g;
  14         s/^\s+(.*)/$1/;
  15         print PipeFP $_;
  16 }
  17
  18 close(PipeFP);