Re: Extract matched pattern into array

[Brian Fraser]

Whoops, the ugly way was extra ugly due to a mistake. My bad!

while (<DATA>) {
>     while (/(?<word>\p{L}+)\s+\p{L}+\s+(?<setnumber>[0-9]+)/g) {
>         $everything[$. - 1]->{$+{word}} = $+{setnumber};
>     }
> }
>

Brian.