Select Code to Download

#! /usr/bin/perl
use warnings;
use strict;
...
binmode STDERR, ':encoding(UTF-8)';
print STDERR Dumper(\%mydatatoshow);
print STDERR Dumper(\%mydatatoshow) =~ s/\\x\{([0-9a-f]{2,})\}/chr(hex
+($1))/ger;

s/((\\+)x\{([0-9a-f]{2,})\})/
    (length($2) % 2) ? substr($2, 1) . chr hex $3 : $1/ger;

#! /usr/bin/perl
use warnings;
...

eval $dumper_choroba;
is_deeply $VAR1, \%datatoshow;