http://www.perlmonks.org?node_id=165803


in reply to Mandelbrot (Golf) Obfuscation

This version shows a little more fine detail around the edges:
print map{$i=$_/20 ;$/,map{ $r=$;=$_/ 20;$z= $i;$n= $z* $ z,$z =2* $ r*$z+ $i ,$r=($ m=$ r *$r)- $n+ $ ;for a..z;$ m<4?$" :chr(40+ length$m) }-46..13}-20..19#!