$html=abc;
while ($html =~ s/$html/cdef/) {
}