#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

sub gen_divider {
    my %opt = @_;
    my $is_break = $opt{detect_break};

    my ($curr, @list);

    return sub {
        for (@_) {
            if (! defined $curr || $is_break->($_, $curr)) {
                push @list, [$_];
                $curr = $_;
            }
            else {
                push @{$list[-1]}, $_;
            }
        }
        return \@list;
    };
}

my $break_point = sub {
    my ($item_to_test, $prev_break_point) = @_;
    return $item_to_test ne $prev_break_point;
};

my $divide = gen_divider(detect_break => $break_point);

for (split //, "ZBBBCZZ") {
    $divide->($_);
}

my $list = $divide->();
print Dumper($list);