#!/usr/bin/perl

$/ = ";\n";
while (my $line = <DATA> ){
   $line =~ s/^#[^\r\n]*//g; # get rid of any comments
   print "Query: $line\n";
}

__DATA__
# one comment
# two comment
# another comment

insert into table_name values(1, 'testing 1 2 3');
# more comments
insert into table_name values (2, 'test &#149;');