my $str= "aaa aa aaa"; print "String = '$str'\n"; while( $str =~ /(?=aa)/g ) { print pos($str), $/; } __END__ String = 'aaa aa aaa' 0 1 4 7 8