Help for this page

Select Code to Download

Select or download this

      s/^\s+//;
      s/\s+$//;
...
      $seen{$_}++;
      next if $seen{$_} > 1;
      print "$_\n";