#!/usr/bin/perl -w
use strict;
use utf8;

use Data::Dumper;
# $Data::Dumper::Useqq = 1;

binmode STDOUT, 'utf8';

our $VAR1;
my $data = 'ä'; # this is a non-ACII a Umlaut

my $dump = Dumper( $data );

eval $dump;

if ( $data eq $VAR1 ) {
    print " == equal\n";
}
else {
    print " != not equal\n";
}
print $dump, "\n";
print Dumper( $VAR1 ), "\n";

print "original is utf8 = '" . utf8::is_utf8( $data ) . "'\n";
print "restored is utf8 = '" . utf8::is_utf8( $VAR1 ) . "'\n";



##</code><code>##

 == equal
$VAR1 = "\x{e4}";

$VAR1 = 'ä';

original is utf8 = '1'
restored is utf8 = ''