Select Code to Download

package Regexp::Simple;

...
subpatlist: '(' pattern(s /,/) ')'
                            { $item[2] }

use Regexp::Simple;

...
   print "Found a match at time $1!\n";
}