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"