use HTML::Entities;

while (<TEXT_FILE>) {
    encode_entities $_;