#!/usr/bin/perl

chdir("/tmp") or die "$!";
opendir (DIR, ".") or die "$!";
my @files = grep {/2010*/}  readdir DIR;
close DIR;
{   local @ARGV = @files;


foreach my $file (@files) 
{
   open(FILE,"/tmp/$file") or die "No file!";
		
###############################

while ($fields = <FILE>)
	{

	@logs = split (/ /,$fields); # split log fields by space.

			foreach $msg (@logs)

			{ 
		
			#if ( $msg=~(/^msg="(.*?)"/))
			#if ( $msg=~(/msg=/))
			if ( $msg=~/\bmsg="[^"]*"/)
			#if ($message =~ /msg=\"+((?:([^:,]+):\s|)([^,]+?)\s*(?:\s*,.*?|))\"+/)
				{
				print "$msg\n";
				}
			}
   
		}
   close(FILE);

	}

}
close FILE;
exit(0);