Main trick is an auspice:

perl -e 'print map{s;(.).;\1;g;$\=$/;s;z; ;g;$,=$.;$"=++$"-1?$_:uc$_}m
+ap{++($;=$_)}split//,"itrsyzmnsgdqyodqkygzbjdq"'
[download]