Help for this page
>perl -wMstrict -le "my $dna = 'xxpecbcbccrlxxxPeeeerlxxpLxxxPeRLxx'; ... printf qq{'$_' } for @matches; " 'pecbcbccrl' 'Peeeerl' 'pL' 'PeRL'