my @subst = (
        [q|&| => q|&|],
        [q|"| => q|"|],
        [q|<| => q|&lt;|],
        [q|>| => q|&gt;|],
        [q|'| => q|&'|],
        [q|`| => q|&`|],
    );
    $data =~ s/($subst[$_]->[0])/$subst[$_]->[1]/osg for 0 .. $#subst;