... 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); ...