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

But I seriously doubt any speed difference will really be significant.