Select Code to Download

use Test::More 'no_plan';

...
$unescaped =~ s{ \\x\{ ([a-f0-9]{2}) \} }{ chr hex $1 }xmseg;

is( $unescaped, $bytes, '$unescaped eq $bytes' );