#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;

my $code = <<"EOLATINCODE";
my \$var_with_\xE9_accent = 10;
print \"var is \$var_with_\xE9_accent\\n\";
EOLATINCODE

$code = decode('latin1', $code);
print "CODE is $code\n";
eval $code;
if ($@) {
    print "DIED: $@\n";
}