Select Code to Download

use strict;
use warnings;
...
    delete $find{$.};
    last unless keys %find;
}

perl -ne "BEGIN{open I, '<', shift(@ARGV); while(<I>){ @find{$_ .. $_+
+2}=();}} next unless exists $find{$.}; print; delete $find{$.} last u
+nless keys %find;"