use warnings;
use strict;

while (<DATA>) {
   if (/do_(add|delete)/) {
      print "Found: $_";
   }
}