while (<>)
{       
	chomp;
        $buffer .= $_ ;
}
	if ($buffer =~m{ \[ (\w{3}) \s* (\w{3}) \s* (\d{2}) \s*
  		(\d{2}:\d{2}:\d{2})\s*
  		(\d{4}) \]
  		(\w*) \/ (\w*) /// Info(\(\d*\)) 
		(\w*) 
		}xm
){
	print "regexp ok\n";
	print "$buffer";
	print "$1\n";
	print "$2\n";
	print "$3\n";
        print "$4\n";
	print "$5\n";
	print "$6\n";
	print "$7\n";
	print "$8\n";
	print "$9\n";
	print "$10\n";
	print "$11\n";
}