andromeda:davidj tmp > cat test.pl
#!/usr/bin/perl
#
use strict;
use warnings;

my $string = "abc";

while( $string =~ /b/g ) {
    print $#-, "\n";
}


andromeda:davidj tmp > ./test.pl
0
andromeda:davidj tmp > uname -a
Linux andromeda 2.6.11-gentoo-r5 #3 Sun Apr 24 03:22:46 MDT 2005 i686 Intel(R) Pentium(R) M processor 1.60GHz GenuineIntel GNU/Linuxandromeda:davidj tmp > perl -V
Summary of my perl5 (revision 5 version 8 subversion 5) configuration:
  Platform:
    osname=linux, osvers=2.6.9-gentoo-r1, archname=i686-linux
    uname='linux livecd 2.6.9-gentoo-r1 #1 smp thu nov 25 03:43:53 utc 2004 i686 intel(r) pentium(r) m processor 1.60ghz genuineintel gnulinux '