#!/usr/bin/perl -w
# 
#  Quebra uma linha em varias de tamanho $len (70)
#  multi-fasta
# 
#  Seg Mai 30 16:27:17 BRT 2005
#

use strict;
my $txtFile = $ARGV[0];
my $len = 70;
my $line;

open(FILE,"$txtFile");
open(FASTA,">$txtFile.fasta");

foreach $line (<FILE>){
 	while (length($line)>$len){
    	printf(FASTA "%s\n", substr($line,0,$len) );
		$line = substr($line,$len,length($line));
	}
 	printf(FASTA "%s", $line);
}

close(FASTA);
close(FILE);

