#!/usr/bin/env perl

use strict;
use Search::Dict;

open my $fh, "/var/log/http/access_log";
my $start = 'Oct  2 10:21:';
my $end = 'Oct  2 10:2[1-2]:';
look $fh, $start;

while (my $line = <$fh>) {
    last if ($line !~ /$end/);
    print $line;
}