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

use strict;
use diagnostics;

my $oldline = <>; # Priming read
my $n = 1;

while (my $line = <>) {
  if ($line eq $oldline) {
    $n++; #$n = $n + 1;    
  } else {
    print " $n $oldline";
    $n = 1;
	$oldline = $line;
  }
}
if ($oldline)
{
  print " $n $oldline";
}