% if(defined($hex)) { Result
<%perl> $hex =~ s/^\s+//; $hex =~ s/\s+$//; $hex =~ s/[^0123456789abcdef\s]//gi; my @chunks = map { hex } split(/\s+/,$hex); my $u = Unicode::String->new()->pack(@chunks); <% $u->utf8 %>

Convert another.

% } else { Unicode hex to UTF-8
Your Unicode goes here:
The data you enter should look like:
0050 0075 0074 0020 0079 006f
0075 0072 0020 0055 006e 0069
0063 006f 0064 0065 0020 0068
0065 0072 0065 0021 000a

White space between hex codes will be ignored. They shouldn't be run together. Leading zeros are not required.

% } <%args> $hex => undef <%method title> Unicode hex to UTF-8