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

print $out ">$description\n$seq";
close $out;