#!/usr/bin/perl
use strict;
use warnings;
$/ = ";\n";
{
  local $/ = "\n";
  while (my $line = <DATA> ){
    $line =~ s/^#[^\r\n]*//g; # get rid of any comments
    print "Query: $line\n" if ($line !~ /^\s+$/);
  }
}


__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;');