% perl -ne 'END { print grep $s{$_}>1, keys %s } last if $_ eq "quit\n"; $s{$_}++' file