& и &

[Error202]

Господа!

Есть текс, где встречаются и & и просто &

Нужно заменить & на & но иак, чтобы не изменялиь уже существующие &


Как такое сделать можно?

[ravshaniy]

$txt=\'& текст &amp &текст &&amp\';
$txt=~s/&([^amp])/&amp$1/g;
print $txt;

[Error202]

Спасибо! ...