(this passes simple testing, deleting non-uniq lines from a sorted text file) uniq.pl $saved = ""; while ( <> ) { if ($saved ne $_ ) { print $_ }; $saved = $_; } # ===== Want to unsubscribe from this list? # ===== Send mail with body "unsubscribe" to macperl-request@macperl.org