What is the following PERL script trying to accomplish?
sub mycode_string {
join(“”
map(‘$_ > 255 ?
sprintf(“\\x{%04x]”, $_) :
chr($_) = ~ /[[:cntrl:]]/ ?
sprintf(\\x%02X”, $_) :
chr($_)
} unpack(“u*”, $_[0]))l
}
A.
Convert hexadecimal to Unicode
B.
Display test as Unicode
C.
Convert hexadecimal to text
D.
Display Unicode as text
Explanation: