use strict;
use Web::Scraper;
use Data::Dumper;

my $html = join "", <DATA>;

# Invoked for a <a> tag
my $link = scraper {
    process '//a' => 'href' => '@href';
    process '//a' => 'description' => 'TEXT';
};

my $page = scraper {
    process '//a[@href]' => 'links[]' => $link;
    process '//meta[@http-equiv]' => 'meta[]' => '@content';
    process '//area[@href]' => 'areas[]' => '@href';
    
};

my $info = $page->scrape($html);

print Dumper $info;
__DATA__

__DATA__
... your html ...