#!/usr/bin/perl

while (<>)
{
        s/<.+?>/ /sgi; # simple html replacer
        s/&quot;/ /gi; # get rid of html quotes
        s/&nbsp;/ /gi; # get rid of non breaking spaces
        print;
}