$ perl -wle '"abacbcc" =~ /a.*b.*c(?{ $count++ })(?!)/; print $count'
7