Select Code to Download

#!/usr/bin/env perl 
use strict;
...

close $in;
close $sifted;

perl -ne 'print unless /^None/ || ( /^(\d+)/ && $1>123 )' file.hairpin
+ >new_file.hairpin