$m = $n -1;
$foo =~ /^(([^a]*a){$m}[^a]*)a/;