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