$b = "--=_".substr(pack('u', ('Mail'.'Name')), 0, 24);
1234
perlprint substr(pack('u', ('Mail'.'Name')), 0, 24);^Z(36%I;$YA;64`