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