#!/usr/bin/perl
$_=join "\n",q[S@XAEDPCHNMIAXOEDCBN&6G6QX#CQZ66F],q[A#NZ  CQICOLCY&UDVCG]
.q[@6Y      UT6CSRB      MRJ  ],q[Z  R  M  VVDTCNCOSZ  C#Q      S@]
.q[  CBCQW#CSGYV  CAXII&F        ],q[  #  EUV      OEDC  VRC#CQG  HNMCII]
.q[U    &VVJ],q[M    C#NAZ  GCQSD  O  C  Y    @O6CAZCQ      ZPE      F],,
q[YVLFC  TNSTDXCA9WY  CYG  N@XF]  ,  ,  q[YQV    HSBQ  ARCU  R  B@CP  @].
      q[BO  D      BCMS@WA    C  W  T  #      EJ];THAT    ;WAS;    ;EASY;
s/\x20//g;$K="justanotherperlhacker";;;tr(#@STEPHNILAYOUG&96BMWVXZRQDFJC)
(a-z',. /);$m=$_;@:=(a..z);%:=map{($:[$_],$_)}0..5**2;@k=map{-$:{lc()}}$K
=~/([\x61-\x7a])/g;while($m=~/(.)/sg){$c=$1;if($c=~/[a-z]/i){$N=$:[($:{$c
}+$k[$i])%@:];$R.=$N;$i=($i+1)%@k;}else{$R.=$c}}print$R;#ForWhatIt'sWorth