Help for this page

Select Code to Download


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