my $regexp = Regexp::List ->new(modifiers => 'i',quotemeta => 0) ->list2re(@patterns);
if ($string =~ /$regexp/) {
  if (string =~ /insert|delete|update/i) {
          do something with $string
  }