use strict;

my $test = '<p> ONE <p> TWO features: <ul> THREE';

my ($first, $second, $third) = ($test =~ /(<p> )(.+(?!<p>))(features\: <ul>)/i);

print "1: $first\n";
print "2: $second\n";
print "3: $third\n";