perl -ne 'print substr $_,$i++,1'