Select Code to Download

use HTML::Entities;

while (<TEXT_FILE>) {
    encode_entities $_;

    encode_entities $_;  # yes, really twice

    do_stuff($_);
}

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