Select Code to Download

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

use Data::Dumper;
sub PassRegex {
...
  print "parm3    = $_[2]\n";
  return;
}