my ($wort, $pos, %attrs) = $line =~ m/^(\w+)\s+\[(\w+)(?=\s)(?:\s+([^=]+)=([^=]+))*\]$/g;