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

use strict;

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

my $count = 1;
my $line;

while (<>)
{
chomp;
$line = $_;
$line =~ s/(.{60})/$1\n/g;

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

print "\>$count\n", $_, "\n\n" if length $_ >= 250;
}

close INPUT;