insert newtab values(1) drop table newtab
create table XXXX (field1 int null) insert XXXX values(1) grant select on XXXX to sa drop table XXXX
create table XXXX (field1 int null) insert XXXX values(1) grant select on XXXX to sa drop table XXXX rollback tran
create table XXXX (field1 int null) sp_help XXXX 
insert XXXX values(1) grant select on XXXX to sa drop table XXXX rollback tran
lock table cDsnJbgnd..smfJwDlwb in share mode

##</code><code>##

create table ([a-z]|[_])+
insert \b([a-z]|[_])+\b 
lock table
grant

##</code><code>##

(?-xism:(?ig:(?:create table ([a-z]|[_])+|insert \b([a-z]|[_])+\b |lock table|grant)))

##</code><code>##

# Build regex list
open KEYS,"patterns" or die "Can't open the pattern file: $!";
my $exp = Regexp::Assemble ->new(flags => 'ig',chomp => 1) ->add( <KEYS> );
close KEYS;

$exp->track( 1 );

while (get the database records) {

if ($exp->match($rec) ) {
      # populate a csv file for a spreadsheet
          } 
}

##</code><code>##

create table XXXX (field1 int null) insert XXXX values(1)

##</code><code>##

create table XXXX (field1 int null)
insert XXXX values(1)