perlで文中の"&"を"&"に変換したいと思ってます。
でも"¥"などの実体参照化されてる部分の"&"は変換しません。
で自分なりに考えたのですが↓

$text="<p>キュウリ&ナス＝¥200</p>";
$text=~s/&[^(yen;|euro;|amp;|copy)]/&/g;
print "$text¥n";

を実行すると、結果が

<p>キュウリ&ス＝¥200</p>

となり、うまくいきません。
2行目の正規表現がおかしいと思うのですが、どう変えたらいいのでしょうか？
よろしくお願いします。