I obtained the 2 second line ;) thanks for all answers, the final solution:

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";
}
[download]

Lorn -www.slackwarezine.com.br-