# perl -w Snoopy.pl

[tt]
                $_=join' ',
             reverse split 'q',
           join '',split ' '.''
             ,'ehhdzqikh'   .' 'x2
           .'wv'       .'l'  .''x0
          .'l'          .'b'  .' 'x0
         .'h'           .'gr'   .''x2
         .'eq'.'rq'    .'rta'
        .'bvo'.'vqm'  .'hqbfi'
       .  'kh'.'ovf' .'vgmqgvv'
     .'u'             .'lqpar'
    .'mq'.             'hgqw'
   . 'v'.               'vu'
    .                 ''  .
    's'             .'r'
    .'t'       .'' .'d'
     .'qx' .''x7  .'h'
       .'huqxbovqtr'
          .'g   q'.
           'b   q'
         .'r    k'.
     'mblmqrgqghmqbfqpa'
   .'b'.'          '.'e'.
   'v'.'            '.'q'.
  'rg'.               'uq'.
 'ivk'.      ''.      'eyi'.
 'ai,'.   ''. ''.     'qebd'.
 'vqi'. ''.    ''.    'khxk'.
  'rff'        .''   .'bgxq'.
   'srt'     .''     .'dvg'.
    'uql'           .'hfv'
       .''          .''
        .'quhqtrgqb'

;tr/[yr-xa-qz]/[\/a-qr-x.]/;print;
[/tt]