my ($match) = $body =~ /(?<=a)([^c]*(?:c[^c]*){2})(?=c)/;