$mech->content() =~ m#Lumber:</td><td align="right"><b>(\d+)#i;
my $lumber = $1;

$mech->content() =~ m#Clay:</td><td align="right"><b>(\d+)#i;
my $clay = $1;


$mech->content() =~ m#Iron:</td><td align="right"><b>(\d+)#i;
my $iron = $1;

$mech->content() =~ m#Crop:</td><td align="right"><b>(\d+)#i;
my $crop = $1;