push(@wds, $+) while
                $ln =~ m/(\d[.@]\d) |
                  (\{[^}]+\}) |
                  (\d) |
                  (\w+\[[^\]]*\]) |
                  (\w+) |
                  ([\S])/xg;