use Text::Wrap;
$Text::Wrap::columns = 80;
$text = "blah blah blah...";
print wrap('','',$paragraph);