#!c:/perl/bin/perl.exe -w
use strict;
use diagnostics;

open OUTPUT,"<","c:\/Perl\/Project\/Files\/SMDR.log.prs.20090220_084230.prd" 
or die "Couldn't open smdr file; $!\n";
my @lines = <OUTPUT>;
#loop through the array values and print each
foreach my $lines (@lines)
{
open (OUTFILE, ">>c:\/perl\/project\/archive.txt");
print OUTFILE "$lines"; #here's where I'd like to filter out any lines containing "/" a slash character
close OUTFILE;
}