use strict;

my $b = "abcdefghiklcafkasgf";
my $html = "abc";
# while ($b =~ s/$html/cdef/) {
# }
# kann durch g schalter ersetzt werden

$b =~ s/$html/cdef/g;
print $b;