sub splitLine {
    my $line = shift;
    my $pattern = shift; # by default, it is "ERROR"
    my %header;
    #                     DD.MM.YYYY           HH:MM:SEC       USEC        ERROR/WARN           [pool-def]   class-name   msg
    my $sPattern = '(\d{2}.\d{2}.\d{4}).*?(\d{2}:\d{2}:\d{2}).\d{0,3}.*?\*(' . $pattern . ')\*.*?(\[.*?\]).(.*?\..*?\s+?)(.*)';

    if ($line =~ /$sPattern/s) {
        my $ts = parseLogEntryTimeStamp($1, $2);
        %header = ( 'timestamp' => $ts,
                    'date' => $1,
                    'time' => $2,
                    'severity' => $3,
                    'thread' => $4,
                    'class' => $5,
                    'msg' => $6);
        print "$7 \n";
        #doTrace %header;
    }
    return %header;
}