#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my $bin_string = '10000111000011';
my @groups = split /(?<=0(?!0)|1(?!1))/, $bin_string;

say "@groups";