perl -ple'$_="["x$_.0 ."]"x$_'