use strict;
use warnings;

my $count = 0;

my @array;

while ( read( DATA, my $byte, 1 ) ) {

    if ( $byte ~~ @array ) {
		$count++;
		print @array;
        undef @array;
    }
    else {
        undef @array;
        push @array, $byte;
		print @array;
    }
}
print $count;


__DATA__

1112223333