14:25 >perl -wE "my @s = ('Fred & Wilma', 'Barney & Betty'); for (@s) { s{&(?!amp;)}{&}g }; say for @s;"
Fred & Wilma
Barney & Betty

14:25 >