use Data::Dumper;
use LWP::Simple;
use strict;


my $html = get q[http://javajunkies.org/index.pl?node=login];


use HTML::LinkExtractor;
{
    my $lX = HTML::LinkExtractor->new();
       $lX->parse(\$html);

    for( @{ $lX->links() } ){
        print Dumper($_) if $_->{tag} =~ /meta/;
    }
}


use HTML::TokeParser::Simple; 
{
    my $tS = HTML::TokeParser::Simple->new(\$html);
    
    while(my $t = $tS->get_tag('meta')){
        print Dumper( $t->return_attr );
    }
}


use HTML::Parser;
{
    my $p = HTML::Parser->new(
        api_version => 3,
        start_h => [
            sub {
                print Dumper($_[-1])
                    if $_[-2] eq 'meta';
            }, "tagname, attr"
        ],
    );
    
    $p->parse($html);
}


use HTML::TreeBuilder;
{
    for my $meta ( HTML::TreeBuilder->new_from_content($html)->find_by_tag_name('meta') ) {
      print Dumper( $meta->all_external_attr );
    }
}

__END__

$VAR1 = {
          'content' => 'A community committed to sharing Java knowledge and coding tips.  The site contains questions and answers, useful snippets, and a library of code.',
          'tag' => 'meta',
          'name' => 'description'
        };
$VAR1 = {
          'content' => 'programming, learning, tutorials, questions, answers, examples, java FAQ, code, java, java discussion, java help, java community, java problems',
          'tag' => 'meta',
          'name' => 'keywords'
        };
$VAR1 = {
          'content' => 'A community committed to sharing Java knowledge and coding tips.  The site contains questions and answers, useful snippets, and a library of code.',
          'name' => 'description'
        };
$VAR1 = {
          'content' => 'programming, learning, tutorials, questions, answers, examples, java FAQ, code, java, java discussion, java help, java community, java problems',
          'name' => 'keywords'
        };
$VAR1 = {
          'content' => 'A community committed to sharing Java knowledge and coding tips.  The site contains questions and answers, useful snippets, and a library of code.',
          'name' => 'description'
        };
$VAR1 = {
          'content' => 'programming, learning, tutorials, questions, answers, examples, java FAQ, code, java, java discussion, java help, java community, java problems',
          'name' => 'keywords'
        };
$VAR1 = 'content';
$VAR2 = 'A community committed to sharing Java knowledge and coding tips.  The site contains questions and answers, useful snippets, and a library of code.';
$VAR3 = 'name';
$VAR4 = 'description';
$VAR1 = 'content';
$VAR2 = 'programming, learning, tutorials, questions, answers, examples, java FAQ, code, java, java discussion, java help, java community, java problems';
$VAR3 = 'name';
$VAR4 = 'keywords';