Select Code to Download

#!/usr/bin/perl
use strict;
...
_decode_entities($str, { amp => "&", 59 => ";" }, 0);

print "<p>$str\n";

<p>Fred's shoe