use strict;
my @patterns = ( 'unknown type\(0x134e\)', '30.6511', '\(V6.5.1 FP1\)' );

# now read from file instead
open FILE, "<", "data/04102013_loginlogs.txt" or die "Cannot open input file.\n";
my @array = <FILE>;
close(FILE);

# open output file for writing
open OUT, ">>", "output.txt" or die "Cannot open output file.\n";
foreach my $line (@array) { 
  print OUT $line if scalar grep { $line =~ /$_/ } @patterns;
}
close OUT;