my $max_width = 40;
$paragraph =~ s/([^\n]{0,$max_width})(?:\b\s*|\n)/$1\n/gio;