{
    my %entity_for = qw{& &amp; < &lt; > &gt;};
    sub chars_to_ents { $_[0] =~ s/([&<>])/$entity_for{$1}/gr }
}