Select Code to Download

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