my $l_max = 30;
$str =~ s/(.{0,$l_max}) /$1\n/g;