while (<INFILE>) { print OUTFILE if /@Filter[0]/; }