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