in reply to help shorten this series of regexes
You don't need two assignment operations:
my ($lumber) = $mech->content() =~ m#Lumber:</td><td align="right"><b> +(\d+)#i; [download]