my $code1='my $var_with_é_accent;'; print "Eval buggy code\n"; eval $code1; print "ERR = $@" if ($@);; print "DONE\n"; my $string; my $code2='$string="new eval done";'; print "Eval good code\n"; eval $code2; print "ERR = $@" if ($@); print "string is : $string\n"; print "DONE\n";