Отрицательное регулярное выражение для соответствия шаблону строки Perl

У меня есть это регулярное выражение:

if($string =~ m/^(Clinton|[^Bush]|Reagan)/i)
  {print "$string\n"};

Я хочу сопоставить с Клинтоном и Рейганом, но не с Бушем.

Не работает.