Yanick wrote:
>From the ludicrous department:
> perl -p0 -e'1while s/.*?\n(.*\n).+\n?/$1/s;s/\n.*//'
If you want to play golf, I claim a 2-stroke lead:
perl -p0 -e'1while s/.*?\n(.*\n).+\n?/$1/s;s/\n.*//' (Yanick)
perl -p0 -e'$n=y|\n||>>1;s/(.*\n){$n}//;s/\n.*//s' (Andrew)Andrew.
