#!/usr/bin/perl 
;#
;#
     s mmeltm.s m...m$&t0sm.s m.+m  
        reverse$&mxe.s m.+m$&,\x0Amx.
         print;m-^(?{++$_,$_+=73;})$-x;
         s m.+?\zmchr$&me.s m(?i)jm$&us\ mx.s m \ mt mx;
        print;m m(?{--$_,$_=tona;})(?{$_=reverse$^R})
       mx.s m ?.+m\u$&her m;print;m s
     (\x70\x65\x72\x6c)?(?{++$|,$_++
     ,$_=unpack u,q q"4&4`q;})$sx;$_
     .=eval{rindex$r,r;}?rl:$@;s m.+
           m$&\ mx;print;$_=\%_;$_{s}=int(
              110+(3+1));$_->{m}=qr mHm;s m.+
              mhmx;s s$_->{m}s\u$&so.s m.m$&acmx;
             ;$_.=($$>0)?k:print;print;print
      chr for(100+1**111_111,$_{s},32
     );print("\x0A")&&exit;;# \x7a69