s/.*/perl -e'print"["x&,0,"]"x&'/e