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