use strict;
use warnings;
use lib "/Library/Perl/5.10.0/";
use autodie;
my @patterns = ( 'unknown type\(0x134e\)', '30.6511', '\(V6.5.1 FP1\)' );

open FILE, "<", "data/04102013_loginlogs.txt" or die "Cannot open input file.\n";
open OUT, ">>", "output.txt" or die "Cannot open output file.\n";

while( my $line=<FILE> ) { 
  print OUT $line if scalar grep { $line =~ /$_/ } @patterns;
}

close OUT;
close FILE;