Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
0: '---'
1: 'BBB'
2:'---'
```