#! perl
use strict;
use warnings;

my $string   = do { $/ = undef; <DATA>; };
my @original = split /\n\n+/, $string;
my @unique;

OUTER:
for my $orig (@original)
{
    $orig eq $_ && next OUTER for @unique;
    push @unique, $orig;
}

print join("\n\n", @unique);

__DATA__
75160
etc.