$address =~ s!http://(www.(?:[^/]*/*)*)!$1/index.html!