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

use strict;

my $num_of_params;
$num_of_params = @ARGV;

if ($num_of_params < 3)
   {
  die ("\n Not enough parameters have been entered!!!!\n");
   }

open (INPUT, $ARGV[0]) or die "unable to open file, perl says
 $!";

open (OUTFILE, ">$ARGV[1]");

my $count = 1;
my $line;
my $limit = $ARGV[2];
while (<>)
{
     chomp;
     $line = $_;
  
     $line =~ s/(.{60})/$1\n/g;

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

     print "\>$count\n", $line , "\n\n" if length $_ >= $limi
t;
     print OUTFILE "\>$count\n", $line, "\n\n" if length $_ >
= $limit;
}

close INPUT;
close OUTFILE;