wouldn't:

my $string = "abc abc abc abc";
my $x = 1;
$str =~ s/abc/"abc def(" . $x++ . ")"/ge;
print "\nDone. string = '$string'\n";

work just fine, without the looping?