#!/usr/local/bin/perl


s:<IMG .*?>::g;
s:<A HREF="\?.*?>([^<]+)</A>:$1:g;
s:<HR>\n<ADDRESS.*/ADDRESS>::;

.