Select Code to Download

...
print $fh ">$description\n";
print $fh "$_\n" foreach ($seq =~ /.{1,50}/g);
...

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