my %r = qw( & amp > gt < lt );
$string =~ s/([&<>])/$r{$1}/g;