sub disable_html {
    my $self = shift;
    my $data = shift || return 0;
    local $_;
    
    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;
    return $data;
}