use Text::Wrap;
$Text::Wrap::columns = 51; #includes terminal \n

...

print $fh ">$description\n";
print $fh wrap('', '', $sequence_string."\n");