#! perl -slw
use strict;
use Data::Dump qw[ pp ];

while( <DATA> ) {
    my %fields;

    my @bits = m[
        ^
        (\S+)\s+ (\S+)\s+ (\S+)\s+ (\S+)\s+
        (\S+)\s+ (\S+)\s+ (\S+)\s+ (\S+)\s+
        ( .+ ) \s+
        (\S+)\s+ (\S+)\s+ (\S+)\s+ (\S+)\s+
        (\S+)\s+ (\S+)\s+ (\S+)\s+ (\S+)\s+ (\S+)
        $
    ]x;

    @fields{ qw(
        day_name month day current_time year transfer_time
        remote_host file_size filename transfer_type
        special_action_flag direction access_mode username
        service_name authentication_method
        authenticated_user_id completion_status
    ) } = @bits;

    print pp \%fields;
}


__DATA__
Mon Oct  1 17:09:23 2001 0 127.0.0.1 2611 1774034 a _ o r tmbranno ftp 0 * c
Mon Oct  1 17:09:27 2001 0 127.0.0.1 22 1774034 a _ o r tmbranno ftp 0 * c
Mon Oct  1 17:09:27 2001 0 127.0.0.1 22 file with spaces in it.zip a _ o r tmbranno ftp 0 * c
Mon Oct  1 17:09:31 2001 0 127.0.0.1 7276 p1774034_11i_zhs.zip a _ o r tmbranno ftp 0 * c