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