use English;
@a = qw/abbabbbababba ababbabbba abbbabbaba/;
foreach (@a) {
   print "$PREMATCH $MATCH $POSTMATCH\n" if /(?<!b)b(?!b)/
}

abbabbba b abba
a b abbabbba
abbbabba b a