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

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