Help for this page

Select Code to Download

Select or download this

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