$ perl -ne '$seen{$_}++; $seen{$_} > 1 and print' old.txt > new.txt