# Encoding stuff####################################
my %ENCODE=(
    '"' => '"',
    '&' => '&',
    '<' => '&lt;',
    '>' => '&gt;',
    map((chr($_), "&#$_;"), (0..31)),
);
my $ENCODE= join('', keys %ENCODE);
$ENCODE= qr/([${ENCODE}])/;
sub encode {
    my($text)= @_;
    return '' unless defined $text;
    $text=~ s/$ENCODE/$ENCODE{$1}/g;
    return $text;
}
####################################################