Select Code to Download

$text =~ s/<U\+([0-9A-Fa-f]+)>/qq!"\\x{$1}"!/ee;
$text =~ s/<U\+([0-9A-Fa-f]+)>/chr hex $1/e;