use HTML::Entities;

while (<TEXT_FILE>) {
    encode_entities $_;
##</code><code>##

    encode_entities $_;  # yes, really twice
##</code><code>##

    do_stuff($_);
}

print XMLout ($foo);     # the data structure built by do_stuff()