...
print $fh ">$description\n";
print $fh substr($seq,0,50,'') . "\n" while ($seq);
...