open (CRIST ,"<",$ 0);for (){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=){;;;;;; chomp;for(split //,$crist){s/[^ \s]/$crist[ $ i %@crist]/x;$i++ ; $ manto.=$_}} print$manto;;;; ;;;;;;;__DATA__ ||||||||||||||| ||| ||||||||||| ||||||||||||||| |||||||||||||| | ||||||||||||| ||||||||||||||| ||||||||||||||| |||| |||||||||||| |||| |||||||||||||