Help for this page

Select Code to Download

Select or download this

my $html = <<EOT;
stuff
...
    $html =~ m#(\w+):</td><td align="right"><b>(\d+)#ig;
my ( $lumber, $clay, $iron, $crop) =
    @price{ qw( lumber clay iron crop)};