use HTML::TokeParser::Simple;
my $parser = HTML::TokeParser::Simple->new( 'foo.html' )
  || die "$!";
while ( my $token = $parser->get_token() ) {
    if (   $token->is_tag( 'meta' )
        && $token->get_attr( 'name' ) =~ /description/i )
    {
        print $token->get_attr( 'content' );
    }
}