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