Sorry, for misunderstood. I had replied in a hurry.
An alternative approach for other case.Cast these ones.

perl -e 'my $str="czd"; my $s=join " ", map { sprintf "&#%d;", $_ } un
+pack("U*",$str); print my $s;'
[download]

or

 perl -e 'my $str="عفاريت"; my $s=join " ", map { sprintf "&#%d;", $_ } unpack("U*",$str); print my $s;'