{ # vim: ft=perl: %lines = (); @lines = (); open (RD, ") { chomp; next if grep { /^$/ } $_ ; next if grep { /^\?/ } $_; push @lines, $_; $lines{$_} = 1; } close(RD); ""; }