$ cat -n file
     1  aaa
     2  bbb
     3  ccc
     4  ddd
     5  qqq
     6  aaa
     7  fff
     8  bbb
     9  sss
    10  ddd
    11  lll
    12  111
    13  rrr
    14  666
    15  ddd
    16  333
    17  ccc
    18  111
    19  ddd

echo "Номера повторяющихся строк"; sort file | uniq -d | while read line; do cat -n file | grep $line; done | sort -n | awk '{print $1}'; echo -e "\nОтсортированный файл с удаленными повторами строк"; sort -u file
Номера повторяющихся строк
1
2
3
4
6
8
10
12
15
17
18
19

Отсортированный файл с удаленными повторами строк
111
333
666
aaa
bbb
ccc
ddd
fff
lll
qqq
rrr
sss

echo "Номера повторяющихся строк"
sort file \
| uniq -d \
| while read line; 
do 
  cat -n file | grep $line
done | sort -n | awk '{print $1}'
echo -e "\nОтсортированный файл с удаленными повторами строк"
sort -u file

gu@moshell:~$ cat string
#!/usr/bin/perl -w

use strict;

my %number;
my $number_string;
my @list;
my %repeat;
my @uniq;
my %seen;
while (<>) {
        $number_string++;
        chomp;
        $number{$_}++;
        push (@list, $_);
        $repeat{$_} .= "  $number_string"
}

foreach my $item ( @list ) {
        push( @uniq, $item) unless $seen{$item}++;
}

for ( @uniq ) {
        print "The string : \"", $_, "\" found ", $number{$_}, " time(s) at line ", $repeat{$_}, "\n";
}

gu@moshell:~$ cat file
aaa
bbb
ccc
aaa
bbb
aaa
aaa

gu@moshell:~$ ./string file
The string : "aaa" found 4 time(s) at line   1  4  6  7
The string : "bbb" found 2 time(s) at line   2  5
The string : "ccc" found 1 time(s) at line   3
gu@moshell:~$