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