print(substr$_,$i++,1)for<>