#!/usr/bin/perl -w
use strict;
use HTML::Parser;

my $html = "<HTML> from a file or wherever</HTML>";

my @parsed;
my $p = HTML::Parser->new(api_version=> 3,
                          handlers=> {default=>[\@parsed,"event,text"]},
                         );
$p->parse($html);

for (@parsed) {
    $_->[1] =~ s///g if $_->[0] eq 'text';
}