use strict;

my $count = 0;

open (INPUT, $ARGV[0]) || die "Could not read $ARGV[0]\n";

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

     $count += />/g;

     print ">$count\n$line\n\n";
}

close (INPUT);