Select Code to Download

my $regexp = Regexp::List ->new(modifiers => 'i',quotemeta => 0) ->lis
+t2re(@patterns);

(?-xism:(?i:(?=[acdilrsuw])(?:create (?:t(?:able|rigger)|function|defa
+ult|pro[cedure]|rule|view)|d(?:rop (?:t(?:able|rigger)|default|functi
+on|rule|view)|elete )|s(?:p_(?:bind(?:efault|msg|rule)|drop(?:(?:g|ro
+w)lockpromote|key)|p(?:laceobject|rimarykey)|rename(?:_qpgroup)?|set(
+?:pg|row)lockpromote|unbind(?:efault|msg|rule)|add_qpgroup|chgattribu
+te|foreignkey|hidetext)|etuser)|(?:alter|lock) table|(?:insert|update
+) |remove java|writetext)))

my $regexp = Regexp::List ->new(modifiers => 'i',quotemeta => 0) ->lis
+t2re(@patterns);
if ($string =~ /$regexp/) {
...
  } 
call a subroutine here...
}