An alternative could be Text::Wrap:

use Text::Wrap;
$Text::Wrap::columns = 65;
print wrap("", "", $string);
[download]

HTH,
Paul