#!c:/strawberry/perl/bin/perl.exe 
  use HTML::TokeParser;
  use HTML::Element;
  use HTML::TreeBuilder;
  use warnings;

  open(MYINPUTFILE, '<C:\acs\SA\content\acs\meetings\expositions\CNBP_028491');
while(<MYINPUTFILE>)
 {
   my $text = $_;
  my $html = HTML::TreeBuilder->new_from_content("$text") || die "$@\n";
sub to_text {
 if (ref $_[0] eq "HTML::Element") {
  foreach my $sub_element ($_[0]->content_list) {
   &to_text($sub_element);
  }
 } else {
  print qq{text="$_[0]"};
 }
}
&to_text($html);

}