Select Code to Download

map {printf ("%c", hex $_)} split (',', $text);

print map { sprintf '%c', hex $_ } split q{,}, $text;

printf '%c', hex $_ for split q{,}, $text;