$/ = "";
while (<IN>) {
   my %seen;
   print OUT grep !$seen{$_}++, split /^/m, $_;
}