Undefined subroutine &main::x called at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

##</code><code>##

$_ = '-' x (1024*1024*300);

while( <> ) {
  print and next if length($_)==1001; 
  print STDERR $_;
}

##</code><code>##

perl maxwellsfilter.pl suspect.txt > goodrecs.txt 2> badrecs.txt