Select Code to Download

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Binary build 633 provided by ActiveState Corp. http://www.ActiveState.
+com
Built 21:33:05 Jun 17 2002

use strict;
use warnings;
...
while( $string =~ /b/g ) {
    print "$-[0], $#-, $+[0], $#+\n";
}

C:\>test.pl
1, 2244604, 2, 0
...
1, 2244628, 2, 0
4, 2244628, 5, 0
7, 2244628, 8, 0

This is perl, v5.6.1 built for i386-linux

...
1, 56, 2, 0
4, 56, 5, 0
7, 56, 8, 0