open (OUTFILE, ">>c:\/perl\/project\/archive.txt");
print OUTFILE "$lines" unless $lines =~ /\//; #works! thanks Lawliet!
close OUTFILE;