perl -ne"print if !m{/}" infile > outfile