Select Code to Download

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

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

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