>perl -wle "$_='bacada'; print pos while /a/g"
2
4
6

>perl -wle "$_='bacada'; print pos while s/a//"
Use of uninitialized value in print at -e line 1.

Use of uninitialized value in print at -e line 1.

Use of uninitialized value in print at -e line 1.