#!/usr/bin/perl
use Data::Dumper;

while(<DATA>) {
    chomp;
    my ($log_date, $log_time, $something, $ip_address, $keyed_data_string ) = split /\s+/, $_, 5;

    my %keyed_data_hash;
    while( $keyed_data_string =~ s/\s*(\w+)=\s*([^=]*)$/ $keyed_data_hash{$1} = $2; ''/xsge) { 1 }


    print Dumper($log_date, $log_time, $something, $ip_address, \%keyed_data_hash);

}

__DATA__
2007-11-16 16:05:40    Local1.Alert    128.2.2.40    id=firewall time="2007-11-16 16:03:37" fw=WS2000-Store 02 pri=1 proto=6(tcp) src=128.2.2.200 dst=128.2.100.106 mid= 1013 mtp=  2 msg=TCP connection request received is invalid, dropping packet Src 23 Dst 4631 from EXT n/w agent=Firewall

##</code><code>##

$VAR1 = '2007-11-16';
$VAR2 = '16:05:40';
$VAR3 = 'Local1.Alert';
$VAR4 = '128.2.2.40';
$VAR5 = {
            'msg' => 'TCP connection request received is invalid, dropping packet Src 23 Dst 4631 from EXT n/w',
            'proto' => '6(tcp)',
            'time' => '"2007-11-16 16:03:37"',
            'src' => '128.2.2.200',
            'mtp' => '2',
            'mid' => '1013',
            'fw' => 'WS2000-Store 02',
            'agent' => 'Firewall',
            'id' => 'firewall',
            'pri' => '1',
            'dst' => '128.2.100.106'
        };