Thanks for the initial code... I was looking at playing with the HTML::Strip module also. I got the following version to work. Might be useful to some other monk out there. :)

#!/usr/bin/perl

use strict;
use warnings;

use HTML::Strip;

my $hs = HTML::Strip->new();
my @file;
open(FILE,"<test.html") || die "Cannot open file: $!";
while(<FILE>)
{
  print $hs->parse($_);
}
close(FILE);
[download]