$str=~/(DPL|DPLA)/g

##</code><code>##

$ perl -ne'while(/(DPL|DPLA)/g){print " > $1 <\n"}'
DPL
 > DPL <
DPLA
 > DPL <
DPLA DPL
 > DPL <
 > DPL <
DPLA DPLA
 > DPL <
 > DPL <