Help for this page

Select Code to Download

Select or download this

while (<DUPLICATE>) {
  print DUPremoved if not $lines{$_}++;
}

Select or download this

while (<DUPLICATE>) {
  chomp;
  print DUPremoved "$_\n" if not $lines{$_}++;
}