use strict; use warnings; my ($a ,$b,$c) = (10,10,10); for (; ord($a= substr("Love Your Country+ TFy!QJu ROo TNn(ROo)SLq SLq ULo++ UHs UJq TNn*RPn/QPbEWS_JSWQAIJO^+ NBELPeHBFHT}TnALVlBLO+ FAKFCFQHFOQIAIREET+ MSQGCSQOUHATFAJKSbEALGSkMCSl+ OASn+ ^r^r\\tZvYxXy+ T|S~Pn SPm SOn TNn ULo0ULo#ULo-W+ Hq!WFs XDt!YB ",$b+++7,1 )) ;) { for($a = ord($a); $a-- > 64 ; ) { print ( chr(++$c == ord('Z') ? $c = $c/9 : 33^$b&1)); } }