... print join "\n", $text =~ /(?:Nullam|Donec) [^.]+ (?:augue|libero)/gx +; ... [download]
Regards
mwa
In reply to Re: Parse a large string by mwah in thread Parse a large string by 1001jrlight