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