$Text::Wrap::columns=250;
$Text::Wrap::break='[\s+]';
$message=wrap('','<br>', $message);