gistfile1.pl

my ( $numeral, $word, $last_group ) = m{
     ([0-9])   # $1 = a numeral
     ,[ ]
     (\w+)     # $2 = a word
     [ ]
     (
         [(]
         [^(]+
         [)]
         \s?   # Explain here why we want to capture the optional space
     )+        # $3 = The last of one or more non-nested paren groupings
}xms;