...
 print join "\n", $text =~ /(?:Nullam|Donec) [^.]+ (?:augue|libero)/gx;
 ...