open FIL, "|uniq >$file";

##</code><code>##

{
  next if %uniq{$content}++;
  print FIL $content, "\n";
}