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