Select Code to Download

sub domatch {
    my ($str, $regex) = @_;
...
    print "No keys in hash.\n";
    return 0;
}

original pseudo-regex: test_%a%b
modified regex: test_(\d{2})(?{$mv{a} = $^N })(\d{4})(?{$mv{b} = $^N }
+)
...
Result:
    a => 33
    b => 0104