Good point. Or even
perl -e '@a=(0,1); map {@a=() if $_; $_} @a' [download]
In reply to Re^2: How to kill perl? by robin in thread How to kill perl? by robin