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