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