An illustration that should help:

>perl -le"for (1..2) { 'abc' =~ /(.)/g; print $1 }"
a
b

>perl -le"for (1..2) { 'abc' =~ /(.)/; print $1 }"
a
a
[download]