$text =~ s/(.{30,40}(?<=\s\b))/$1\n/mg;