perl -ne 'BEGIN { $_ = "-" x (260 * 1024 * 1024 )} print and next if length($_)==1001; print STDERR $_' suspect.txt > goodrecs.txt 2> badrecs.txt