#!/bin/csh -f 
foreach f ($1/*.html)
 perl -i -pe  's~^(\<\/H2\>).*\<A NAME=.*\>\&\#160\;\<\/A\>~\1~' $f
endif 
