while($parser->get_tag){
    ## Note the . before = and the use of . instead of ,
    $stripped_html[0] .= $parser->get_trimmed_text() . "\n";
}
print $stripped_html[0];
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.