Blah

#!/usr/bin/perl package MyParser; use base qw(HTML::Parser); my $main_content=""; sub start { my ($self, $tag, $attr, $attrseq, $origtext) = @_; if ($tag =~ /^span$/i && $attr->{'class'} =~ /^main-content$/i) { # set if we find ... or if ($content_flag) { $main_content .= $text; } } my $html = " Blah Here's the body 1

para1

para2

"; my $parser = MyParser->new; $parser->parse("$html"); print "$main_content\n";