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