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