my $str = '---BBB--- ..... ';
my @bits = split /(B+)/, $str;