my $string = "XXYY";
my @count = split( /(.)\1/, $string, -1 );
print $#count;   # Prints 4, not 2.