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