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;