$|++;$m--;map{$m=m;\S;s?++$m:-(print(map{chr($_+($|<<$|+$m+$|)+($m<<$m-$|)-($_-($|<<$m)?$[:($|+$|)**($m+$|)))}@s,-($m<<$m-$|)-($|<<$m+$|)))-(@s=());$g=($[)[$[];$s[$g++]+=(s:;:;:s?$|:$[)[$[]<<${m}for(m((....))g)}(<DATA>);
__DATA__
 ::: : ; .;. :::
  ;  : : ;    : 
  :  : ; `:.  ; 
  ;  : :   :  : 
 :´  `;´ `;´  ; 

 .;. .:. .;. ::: : : ;:; ::.  
 : : ; ; ; ;  :  : : :   : ;
 ::: : ; : ;  ;  ::: :;  ::.
 : : ; ; : ;  :  : ; :   : :
 : : : : `:´  ;  : : ::: : ;
 
 ::. ::; ::. :   
 : : :   ; : :  
 ::  :;  ::. ;  
 :   :   : : ;  
 ;   ::: ; ; :::
 
 : : .;. .;. ; : ;:: ::.
 : : : : ;   : ; :   : ; 
 ::: ::: :   ::. ;:  ::.
 ; : : : :   ; : :   : :
 : : : : `:´ : : ::: ; :

__END__