#!/usr/bin/perl -w

use strict;

               $.
              =$?
               ?
             42:9;
            $"=~s//
           <DATA>/xe
         ;print(join""
       ,reverse(map{$?<
       27&&$?++>2?chr(ord
      ()-6):''}split//,$")
         ,$/);__END__
(tbxkqigN&rxkV&xknzutG&zy{P(&ztoxv/