$_=join q,,,map{m m.m?chr 97+unpack'C',pack 'B*',"000$_":""}split m,(.
+{5}),,
unpack'B*',pack'H*','4d253c81ae99c91cbc915e4e012891';
y yzy  :-) y and print or y!!!
[download]