my @offsets;
while ( /B/g ) {
    push @offsets, $-[0];
}