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