use HTML::Parse;
  use HTML::FormatText;

  $plain_text = HTML::FormatText->new->format(parse_html($html_text));