Help for this page

Select Code to Download


  1. or download this
    foreach $RegEx (@HeaderGarbage){
  $CHRegex = qr/($RegEx\n)/;
...
...
foreach $ErrChar (@HeaderRegExes){
...
  2. or download this
    @HeaderGarbage = ('LD 20',
                  'PT0000 ',
...
while (my $line = <FILE>) {
  $line =~ s/$HeaderRegex//; # replace matching garbage
  ...
  3. or download this
    use strict;
use Data::Dumper;
...
     14     
     15     
DATE 14 JUL 2003