#!/usr/bin/env perl

use strict;
use warnings;

my $species=$ARGV[0];
my $input=$ARGV[1];
my @fields;
my $n = 0;

open my $tabdata, '<', "$input" or die ("Can't open $input\n"); 

while  (my $line = <$tabdata>) {
    chomp $line;
	my @fields = split("\t",$line);
	if(($fields[1] > 2) && (length($fields[0]) > 14 && length($fields[0]) < 31)) {
            print ">$species" . $n++ . "_count=$fields[1]\n$fields[0]\n";
    }
}
close ($tabdata);

exit;