my %chartran = (
   "\xE1" => 'aacute',
   "\xE2" => 'acirc',
   "\xE4" => 'auml',
   "\xC0" => 'Agrave',
   "\xC1" => 'Aacute',
);

my $re = '[' . (join '', keys %chartran) . ']';
$re = qr/$re/;

while (<VRUN>) {
    s/($re)/$chartran{$1}/g;
    print;
}

##</code><code>##

use HTML::Entities qw( encode_entities );

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