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