Select Code to Download

Sun Oct 24 10:10:29 2010 [pid 2] CONNECT: Client "192.168.0.0"
Sun Oct 24 10:10:29 2010 [pid 1] [user] OK LOGIN: Client "192.168.0.0"
Sun Oct 24 10:10:30 2010 [pid 3] [user] FAIL UPLOAD: Client "192.168.0
+.0", "/home/path/to/file", 0.00Kbyte/sec

{{Sun} {Oct} {24} {10:10:29} {2010}} [pid 2] {CONNECT}: Client "{192.1
+68.0.0}"
{{Sun} {Oct} {24} {10:10:29} {2010}} [pid 1] {[user]} {OK LOGIN}: Clie
+nt "{192.168.0.0}"
{{Sun} {Oct} {24} {10:10:29} {2010}} [pid 3] {[user]} {FAIL UPLOAD}: C
+lient "{192.168.0.0}", "{/path/to/file}", 0.00Kbyte/sec

foreach (<$FHIN>){
   my ($dow, $month, $dom, $time, $pid, $user, $status, $client, $ip, 
+$file_path, $dl_speed) = split / /,$_;
}