my @strings = (
    'abBbBBbb',
    'AbBbBBbb',
);

foreach my $string ( @strings ) {
    if( $string =~ m/(?-i:a)b+/i ) {
        print "$string matched.\n";
    } else {
        print "$string didn't match\n";
    }