$_ ='abacdbccdeeabacdbccdee';

my $cnt;
while (/[bc]/g) {
    last if ++$cnt == 3;
}
say pos;