#!/usr/bin/perl

use strict;

my %hash;
push( @{$hash{$_}}, $. ) while (<>);

print "Total\tLocations\tString\n";  # output a header line

printf( "%d\t%s\t%s", scalar(@{$hash{$_}}),
        join(",",@{$hash{$_}}), $_ )  for ( sort keys %hash );