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