Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Cristo Redentor (Rio de Janeiro' s PostCard)

by smokemachine (Hermit)
on Nov 13, 2006 at 15:14 UTC ( [id://583723] : obfuscated . print w/replies, xml ) Need Help??

open (CRIST ,"<",$ 0);for (<DATA>){chomp;s/^\s*//; $manto.=$_};$manto=~s/\n|^\s+//sg;@ manto=split/[^|]/,$manto;push@crist,(chr scalar(split//) + ((chr 54).(chr 52)))for@manto;my$i;undef$ manto;;;;;while($crist=<CRIST>){;;;;;; chomp;for(split //,$crist){s/[^ \s]/$crist[ $ i %@crist]/x;$i++ ; $ manto.=$_}} print$manto;;;; ;;;;;;;__DATA__ ||||||||||||||| ||| ||||||||||| ||||||||||||||| |||||||||||||| | ||||||||||||| ||||||||||||||| ||||||||||||||| |||| |||||||||||| |||| |||||||||||||