print pack C25, unpack n50, "DJduZsztX xADndoZtzhXexrD dPZezrXlx DhdaZczkXexrD\n";

##</code><code>##

print pack C25, unpack n50, " Jru scti eaentoethhue rt JPselrhlt ahcalchkeelrr\n";

##</code><code>##

$_="JZMzTustdrd z  zrdMazpzindyzJd zez otzrhmieDNrmzzam". 
"mznmd PmreZodymudmDrznzHmcmhrl haDtckeM". 
"[dmZ]zur dmZ.\n"; s[[dmZ].][[dmZ]]siege; print;