13:42 >perl -wMstrict -e "my $dna = 'xxxxxxpecbcbccrlxxxxxxpeeeerlxxxxxplxxxxxPeRLxxxx'; my @matches = $dna =~ /(p.*?l)/gi; print qq[$_\n] for @matches;"
pecbcbccrl
peeeerl
pl
PeRL

13:42 >