while ($str=~ /(DPL.|RVL.|[IV]LK.|FVK.)/g)