use strict;
use warnings;

my $dna = 'xxxxxxpecbcbccrlxxxxxxpeeeerlxxxxxplxxxxxPeRLxxxx';
my @matches;

if ($dna =~ /(p.*?l)/gi)
{
    push @matches, $1;
}

for (@matches)
{
    print $_, "\n";
}