perl -i.bak -ne 'if(s!<ADDRESS>.(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,3})!!mgis) {next;} print;' index.html