#!/usr/bin/perl -w

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>)
{
foreach my $line ($tabdata){
	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);