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