#!/usr/bin/perl -CSDA

use utf8; 
use Modern::Perl qw{2017};
use Data::Dumper; 

print STDERR Dumper(\%mydatatoshow) =~ s/\\x\{([0-9a-f]{2,})\}/chr(hex($1))/ger;