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

use strict;

die "Not enough params!!!\n" if @ARGV < 3;

my ($input, $output, $length) = @ARGV;

open INPUT, $input or die "unable to open $input: $!\n";
open OUTFILE, ">$output" or die "unable to open $output: $!\n";

my $count = 1;

while (<INPUT>) {
  chomp;

  ++$count if />/;

  if (length >= $length)
    print ">$count\n$_\n\n";
    print OUTFILE ">$count\n$_\n\n";
  }
}

close INPUT;
close OUTFILE;