Select Code to Download

my $string = "abc abc abc abc";
my $x = 1;
while ( $string =~ /abc /ig ) {
...
}

print "\nDone. string = '$string'\n";

my $string = "abc abc abc abc";
my $x = 1;
while ( $string =~ /(?=abc )/ig ) {
...
}

print "\nDone. string = '$string'\n";