my @vars;
/ (?: (\d) (?{ push @{ $vars[1] }, $1 })
       \w )+
  \d\w/x;