foreach f ( cds/*.htm )
	perl -pi -e 's#http:([^/])#$1#g ' $f
end