use Data::Dumper;

$Data::Dumper::Useqq = 1;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 0;

my $s = "\x{E2}\x{99}\x{A0}";        # These are assumed to be
print(Dumper(quotemeta($s)), "\n");  # iso-latin-1 by Perl

utf8::decode($s);                    # ...until you decode them
print(Dumper(quotemeta($s)), "\n");