c:\@Work\Perl\monks>perl -wMstrict -le
"my $s1 = 'foobarfeefiefoefum';
 $s1 =~ /foo/g;
 ;;
 my $s2 = '123456789';
 $s2 =~ /6/g;
 ;;
 print qq{A: pos in \$s1 '$s1' after successful match == }, pos $s1;
 print qq{B: pos in \$s2 '$s2' after successful match == }, pos $s2;
 ;;
 $s1 =~ /foe/g;
 print qq{C: pos in \$s1 '$s1' after successful match == }, pos $s1;
 print qq{D: pos in \$s2 '$s2' still == }, pos $s2;
"
A: pos in $s1 'foobarfeefiefoefum' after successful match == 3
B: pos in $s2 '123456789' after successful match == 6
C: pos in $s1 'foobarfeefiefoefum' after successful match == 15
D: pos in $s2 '123456789' still == 6