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

##</code><code>##

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

##</code><code>##

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