Select Code to Download

perl -Mre=debug -le"print $1 while q!bbbbabcabc! =~ /\G(\w\w\w)*?abc/g
+"
perl -Mre=debug -le"print $1 while q!bbbbabcabc! =~ /(\w\w\w)*?abc/g"

$ perl -Mre=debug -le"print $1 while q!bbbbabcabc! =~ /\G(\w\w\w)*?abc
+/g"
Compiling REx "\G(\w\w\w)*?abc"
...
                                  failed...
Match failed
Freeing REx: "\G(\w\w\w)*?abc"

$ perl -Mre=debug -le"print $1 while q!bbbbabcabc! =~ /(\w\w\w)*?abc/g
+"
Compiling REx "(\w\w\w)*?abc"
...
Match successful!

Freeing REx: "(\w\w\w)*?abc"