#!/usr/bin/perl -w
use strict;

$/=undef;
my $data = <DATA>;
my @text = ($data =~ /(Nullam.+(?:augue|libero)\.)/g);
print @text;

#__prints:
#Nullam quis augue.