my $regex = qr/p[^x]+l/;

my @matches = $dna =~ /($regex)/;