use strict;
use warnings;

while (<DATA>)
{       
    my @fields;
    if (@fields = m{
        \[
            (\w{3}) \s* (\w{3}) \s* (\d{2}) \s*
            (\d{2}:\d{2}:\d{2})\s*
            (\d{4})
        \]
        (\w*) \/ (\w*) /// Info(\(\d*\)) 
    }xm)
    {
        push(@fields, scalar <DATA>);
        print(join("\n", @fields));
    }
}

__DATA__
[Fri Sep 30 14:02:22 2005]Local/ESSBASE0///Info(1051001)
Received client request: Logout (from user Procbat)
[download]