#! /usr/bin/perl

use warnings;
use strict;

use HTML::Entities;
use HTML::TokeParser::Simple;

my $p = HTML::TokeParser::Simple->new(
  q{monk.html},
) or die qq{cant parse HTML};

open my $fh_out, q{>:utf8}, q{out.txt}
  or die qq{cant open file to write};

while (my $t = $p->get_token){
  
  if ($t->is_end_tag(q{p}) or $t->is_tag(q{br})){
    print $fh_out qq{\n};
  }
  elsif ($t->is_text){
    my $out = $t->as_is;
    for ($out){
      s/^\s+//;
      s/\s+$//;
    }
    next unless $out;
    print $fh_out decode_entities($out);
  }
  
}