Here is a version that tries to heed davido's advice:

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 inpu
+t 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;
[download]

One ) too much. Sorry. I will correct it.