#!/usr/bin/perl
# uniq.pl: remove repeated lines.

use English;
use diagnostics;

$oldline = "";
$n = 0;
while ($line = <>) {

    unless ($line eq $oldline) {
     $n = $n + 1;
    print "  $n  $line";
    }

    $oldline = $line;

}