perl -e '{$_=<>;$.<4?redo:print}'