s/(\d)//; say for (split /\n/)[0..$1-1];