Q15
Single choice
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
}