Help for this page
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";