my $str = 'abc';
PassRegex($str =~ /b/i, 'parm2', 'parm3');

##</code><code>##

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