perl -e '@a=(0,1); map {@a=() if $_; $_} @a'