#!/usr/bin/perl -w
use strict;
use HTML::Parser;
my $html;
{
local $/;
$html = ;
}
my @parsed;
my $p = HTML::Parser->new(api_version => 3,
handlers => {default => [\@parsed, "event,text"]}
);
$p->parse($html);
for (@parsed) {
$_->[1] =~ s/poor/Perl/g if $_->[0] eq 'text';
print $_->[1];
}
__DATA__
poor hacker's almanac
Just Another poor Hacker.