Help for this page

Select Code to Download

Select or download this

# 33 chars
sub s2a{map{$l[-1+pos].=$&while/./g}@_;@l}