perl -e"sub x{local$_=<>;eof||&x;print};&x" < file