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