#!/usr/bin/perl -w
use strict;
 
     my$f=           $[;my
   $ch=0;sub       l{length}
 sub r{join"",   reverse split
("",$_[$[])}sub ss{substr($_[0]
,$_[1],$_[2])}sub be{$_=$_[0];p
 (ss($_,$f,1));$f+=l()/2;$f%=l 
  ();$f++if$ch%2;$ch++}my$q=r
   ("\ntfgpfdfal,thg?bngbj".    
    "naxfcixz");$_=$q; $q=~
      tr/f[a-z]/ [l-za-k] 
        /;my@ever=1..&l
          ;my$mine=$q
            ;sub p{
             print
              @_;
               }
 
       be $mine for @ever 

IyEvdXNyL2Jpbi9wZXJsIC13CnVzZSBzdHJpY3Q7CgogICAgIG15JGY9ICAgICAgICAgICAkWztteQogICAkY2g9MDtzdWIgICAgICAgbHtsZW5ndGh9CiBzdWIgcntqb2luIiIsICAgcmV2ZXJzZSBzcGxpdAooIiIsJF9bJFtdKX1zdWIgc3N7c3Vic3RyKCRfWzBdCiwkX1sxXSwkX1syXSl9c3ViIGJleyRfPSRfWzBdO3AKIChzcygkXywkZiwxKSk7JGYrPWwoKS8yOyRmJT1sIAogICgpOyRmKytpZiRjaCUyOyRjaCsrfW15JHE9cgogICAoIlxudGZncGZkZmFsLHRoZz9ibmdiaiIuICAgIAogICAgIm5heGZjaXh6Iik7JF89JHE7ICRxPX4KICAgICAgdHIvZlthLXpdLyBbbC16YS1rXSAKICAgICAgICAvO215QGV2ZXI9MS4uJmwKICAgICAgICAgIDtteSRtaW5lPSRxCiAgICAgICAgICAgIDtzdWIgcHsKICAgICAgICAgICAgIHByaW50CiAgICAgICAgICAgICAgQF87CiAgICAgICAgICAgICAgIH0KICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgYmUgJG1pbmUgZm9yIEBldmVyIA==