use strict;
use warnings;
use 5.010; # only required for say()

$_ ='abacdbccdee';
if (/(?:[^bc]*[bc]){3}/g) {
    say pos;
}