>perl -le"$_='abc'; s/(.)/[$1]/sg; print" [a][b][c]