use v5.10;

use strict;
use warnings;

use Text::Wrap;

my $text = "Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaalo\nWie geht es dir heute so ?";
$Text::Wrap::columns=10;
$Text::Wrap::break='[\s+]';
my $message=wrap('','<br>', $text);

say $message;

$ perl community/wrap.pl 
Haaaaaaaa
<br>aaaaa
<br>aaaaa
<br>aaaaa
<br>aaaaa
<br>aaaaa
<br>aaaaa
<br>aalo
<br>Wie
<br>geht
<br>es
<br>dir
<br>heute
<br>so ?
$

$ perl -MText::Wrap\ 99999999999999 -e 1
Text::Wrap version 2147483647 required--this is only version 2013.0523.
BEGIN failed--compilation aborted.
$