print UCS2( 'Hello' );
sub UCS2 { return join '', map { sprintf("%02X",ord) } split //, $_[0] }