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