# Untested
my $current = '';
my $count = 0;
while (<>) {
   if ( ($current ne $_) && ($current ne '') ) {
      print "$current   ::   $count  \n";
      $count = 0;
      $current = $_;
   } else {
      $count++;
   }
}