TedYoung,
I thought about that but wasn't sure what UCS2 was or what ranges were valid. Too bad the question wasn't asked better. Incidently, the process can be reversed:

sub decode { return join '', map { chr( hex ) } unpack( 'A4' x (length
+($_[0]) / 4), $_[0] ) }
[download]