I'd suggest looking at the entry in perlfaq9 about this.

If you want a one liner that does it in the recommended fashion you could try something like:

 perl -MHTML::Parser -e'HTML::Parser->new(text_h => [ sub { print shif
+t }, 'dtext'])->parse_file($ARGV[0])' <filename>
[download]

/J\