Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    push @{ $groupNames{ $+{$_} } }, $_ for keys %+;
    print "Match : $1 GroupName(s): @{ $groupNames{$1} }\n";
}

Select or download this

Match : word_one GroupName(s): Word Digit
Match : word_two GroupName(s): Word
Match : word_three GroupName(s): Word