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