Select Code to Download

my $re = qr/some(thing)?/;
print ref $re;

my $matches;
if (ref $value eq 'Regexp')
...
{
    $matches++ if ($param_value eq $value);
}