$l=0;while(<>){chomp;print(" "x$l.$_."\n");$l+=length;}