if ($s =~ /^a(?!.*ab).*b$/) {