chomp $line;
$line =~ s/^\s*//;
if ( $line =~ s/^--(.*)$// ) {
my @l = split $old_delimiter;
if ( @l > 1 ) {
my $tmp_query;
for my $l ( @l ) {
if ( $l =~ m/^--/ ) {
push @comments, $l;
next;
}
$tmp_query .= $l . $old_delimiter;
push @queries, $tmp_query if $tmp_query;
push @comments, $1;
-