I have always liked a simple regex to format for fasta

for 80 nt per line:

$seq =~ s/([^\n]{80}|[^\n]{1,79}$)/$1\n/g;

print $out ">$description\n$seq";
close $out;
[download]

A.A.