use Data::Dumper;
sub PassRegex {
  print Dumper(\@_);
  print "BoolExpr = $_[0]\n";
  print "parm2    = $_[1]\n";
  print "parm3    = $_[2]\n";
  return;
}