Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
++$hits{lc $1} if $str =~ /(lumber|clay|iron|crop):<\/td><td align="ri
+ght"><b>\d+/i;

print join ', ', sort keys %hits;

Select or download this
```
lumber
```