#!perl -n0
s'@i'%s'g;/\$/;printf$`x50,$'=~/..+/g