eval 'no strict; ($@, $!, $^E, $,, $/, $\\, $^W) = @DB::saved;package main; $^D = $^D | $DB::db_stop;
if ( $str =~ /(\\\\x{[A-F\\d]+})/i ) { print $1 };