$Text::Wrap::$columns = 50;
$new_string = Text::Wrap::wrap( '', '<br /><br />', $string );