my $re = qr/some(thing)?/; print ref $re; #### my $matches; if (ref $value eq 'Regexp') { $matches++ if ($param_value =~ $value); } else { $matches++ if ($param_value eq $value); }