use Text::Wrap;

$Text::Wrap::columns = 70;

print Text::Wrap::fill( '', '', join '', <DATA> );

__DATA__
This is a huge paragraph that no doubt spans quite a number of columns. My guess is that it may even span past 70 Columns, so we'll use the nifty Text::Wrap module to limit the number of columns that this paragraph can take up to 70.