Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                print "No match.\n";
        }
}

original pseudo-regex: test_%a%b
modified regex: test_(\d{2})(?{ $mv{a} = $^N })(\d{4})(?{ $mv{b} = $^N
+ })
...
Matching on test_330104
No keys in hash.
No match.