perl -le '$a="mir hamsters cry";

                       $b
                       =q:
                      j=a$(
                     nio(,""
                    ilps""(t)
                   a$,,0[)01,9
                  ,41,3,51,31,0
                 1,47,1,6,8,1,5,
                ;)]1~=a$b\/s/).(
               1$u\p;g/tnir$a:;$b
                     =~s{\s+
                     }{}gx;
                     $b=~s{
                     (....)

    }{join("",reverse(split("",$1)))}egx;eval$b'