Hi all,
long time no post. here's a new effort, based very loosely on this .
Apologies if it's been done before etc etc...

$_="000b2fb33600bdadaf363db6a400bcb6a426003dbda676b6a4";s#..#push@a,pa
+ck
v,hex$&#eg;print"\ec";while($x=4){for$z(@a[0..6]){printf"\e[%d;%dH%s$/
+",
$_/3,$x+$_%3,$_-5?(("|",vec($z,6,1)&$_>5?$_<10?"/":"\\":"_","|")[$_%3]
+x 
vec$z,11-$_,1)||$":$"for 4..11;$x+=4}select$q,$q,$q,4/push@a,shift@a}
[download]

vt100 as ever.
enjoy.
al

janitored by ybiC: Minor format cleanup, convert absolute URL (<a href=http://www.perlmonks.org/index.pl?node_id=254692>this</a>) to PM-style URL ([id://254692|this]) to avoid logout monks with cookie set to different PM domain