use strict;
use Tie::File;
use Date::Manip;
use Fcntl;

tie my @log, 'Tie::File', 'logfile', mode => O_RDONLY or die "Unable to open file";

for (@log)
{
    my $t = "$_";
    if ($t =~ /time: (.* 2008)/)
    {
        my $xxx = ParseDate($1);
    }
}
untie @log;