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

print "Enter limit: ";
chomp( my $limit = <STDIN> );
$limit = abs($limit);

open my $in, '<', "file.hairpin" or die $!;
open my $sifted, '>', "new_file.hairpin" or die $!;

while (<$in>){
	next if /^None/;
	next if /^(\d+)/ && $1 > $limit;
	print $sifted $_;
}

close $in;
close $sifted;

##</code><code>##

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