Select Code to Download

my %chartran = (
   "\xE1" => 'aacute',
...
    s/($re)/$chartran{$1}/g;
    print;
}

use HTML::Entities qw( encode_entities );

while (<VRUN>) {
    print encode_entities($_);
}