@a=split(q,,,qq,hgNbueCe nxe\nWf agr ryUpr\,,);for($i=015;;){if($i>=@a
){last};$_=$a[$i++].$a[$i-0xe];y;[A-Ma-mN-Zn-z];[N-Zn-zA-Ma-m];;print}


@q=split(q??,qq?,JAPH \nacehklnorstubsqrfcnorkjpfdjpmfehi\
ljpag?);$i=0x13;while($i<=@q){print$q[ord($q[$i++])-0141]}