Select Code to Download

use Modern::Perl;
use Data::Dump qw/dump/;

...
Sun Aug 21 12:08:21 2011,172.20.220.38, W, 3699,/export/file2.log
Sun Aug 21 12:08:21 2011,172.20.220.146, W, 1996,<?>
Sun Aug 21 12:08:21 2011,172.22.32.28, W, 2776,/export/file1.log

{
  "172.20.220.146" => { W => { "<?>" => 1996 } },
  "172.20.220.38"  => { W => { "/export/file2.log" => 3699 } },
...
                             },
                      },
}