$/= ';'.$/


##</code><code>##

while (my $line = <DATA> ){
   next if ($line =~ s/^#/); # skip comment lines
   print "Query: $line\n";
}