#!perl -p s!.!$a[60+$.-pos]|=' 'x($.-1+pos).$&.$/!ge}for(@a){y/*/ /