print map { chr hex } split m{,}, $text;