#Remove HTML directives
    $text =~ s/\Q&\E.*?\Q;\E/ /g;

##</code><code>##

    decode_entities($text);