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

##</code><code>##

0: '---'
1: 'BBB'
2:'---'