Select Code to Download

use strict;
use warnings;
...
217.0.22.3 - - [10/Apr/2007:10:58:27 +0300] "GET / HTTP/1.1" 200 3700
217.0.22.3 - - [10/Apr/2007:10:58:34 +0300] "GET /unix_sysadmin.html H
+TTP/1.1" 200 3880
217.0.22.3 - - [10/Apr/2007:10:58:45 +0300] "GET /talks/Fundamentals/r
+ead-excel-file.html HTTP/1.1" 404 31

66.249.65.107 - - [11/Nov/2012:19:33:01 -0400] "GET /support.html HTTP
+/1.1" 200 11179
111.111.111.111 - - [11/Nov/2012:19:33:01 -0400] "GET / HTTP/1.1" 200 
+10801

my $mergedYesterday = join '/', ( split ' ', $yesterday )[ 2, 1, 4 ];
          ^                 ^                     ^        ^  ^  ^ 
...
          |                 |                     + - Sun Nov 11 19:31
+:46 2012
          |                 + - Use same delimiter as in log records
          + - 11/Nov/2012

/\[([^:]+)/;
  ^   ^
  |   |
  |   + - Capture everything up to the first colon, e.g., 11/Nov/2012
  + - Anchor at left bracket