perl
print substr(pack('u', ('Mail'.'Name')), 0, 24);
^Z
(36%I;$YA;64`