perl -e "while (<>) { last if m/^quit$/ }"