Help for this page

Select Code to Download

Select or download this
```
$str=~/(DPL|DPLA)/g
```

Select or download this

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