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