Help for this page

Select Code to Download

Select or download this

while( <$infh> ) {
        s{&}{&amp;}g; ## In some case does not match as intended
        s{&amp;amp;}{&amp;}g;
        ...
}

Select or download this

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

14:25 >