Re^6: How to get HTML::Parser to return a line of parsed text

Slick is as slick does.

use HTML::Parser;
use LWP::Simple qw(get);

my $html = get("http://anime.com");

my @accum = ();

my $parser = HTML::Parser->new( text_h => [\@accum, "text"] );

$parser->parse( $html );

for (@accum) {
    print $_->[0];
}
[download]

Comment on Re^6: How to get HTML::Parser to return a line of parsed text Download Code