#! /usr/local/bin/perl -w

use strict;

my $num_of_params;

my $num_of_params = @ARGV;

if ($num_of_params < 3)
{
die ("not enough params!!!");
}

open (INPUT, $ARGV[0]) or die "unable to open file";
open (OUTFILE, ">$ARGV[1]");

my $count = 1;
my $line;

while (<>)
{
chomp;
$line = $_;

 if (/>/)
 {
   ++$count;
 }

 print "\>$count\n", $line, "\n\n" if length $_ >= $ARGV[2];
 print OUTFILE"\>$count\n", $line, "\n\n" if length $_ >= $ARGV[2];

}

close INPUT;
close OUTFILE;