#!/usr/bin/perl # Drived from html2txt.pl (c) 4/21/96 by Michael Smith
%reps = ('nbsp',' ', 'gt','>','lt','<','amp','&','quot','\'');
for ($c = 0; <STDIN>; )
{
  if($c)
  {
    next if(!s/[^>]*>//);
    $c = 0;
  }
  1 while(s/<[^>]*>//g);
  $c =  s/<.*$//;
  1 while(s/\&(\S+);/$reps{$1}/g);
  print ;
}