while($string=~m/(?<Word>(\w+)?<Digit>(\w+))/g)
{
print "Match : $1 GroupName: ";
}