Select Code to Download

sub bool_to_regexp
{
...
        }
        $qrycmd .= "";
}

my $req = bool_to_regexp($ARGV[0]);
print "using $req ...\n";
...
  }
}
close FILE;

my $req = bool_to_regexp($ARGV[0]);
print "using $req ...\n";
...
  }
}
close FILE;