#!/usr/bin/perl "N3Uad0c31S8"=~m;ad0c;;$_=pack"a4",substr($&,0,1).(chr((408+$+[0]^3)>>2).eval{$`=~m$([^3U])$;$1}. chr(ord("P")+hex("E")+abs("abp4Rd9Js$$AKls")+0x17));"HaQRdS*{9d8sH}-AGhdJ72HBms;aehJd?UJs:bls8"=~ m$\w{2,5}(S)\*\{9([\d\w])?.*?(\w)hJ$;$_.=${1}.$::2.$3.chr(oct((10<<3|11)+$=));print$~lc,"\n"