#!/usr/local/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser carpout);
use Time::Local;

print "Content-type: text/html\n\n";

#$time = timelocal($sec,$min,$hour,$mday,$mon,$year);

open LOGFILE, "datafile.html";
@log_data = <LOGFILE>;

foreach $log_line(@log_data) {
   $log_line =~ s/.*(left square bracket)/ /;
   $log_line =~ s/"GET.*"h/ /;
   $log_line =~ s/".*/ /;
   print $log_line, "<p>";
}  <p>

##</code><code>##

24.208.200.247 - - [10/Dec/2002:18:05:09 -0500] "GET /images/header_aod2_08.gif HTTP/1.0" 200 663 "http://www.indystar.com/help/help/available.html" "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; H010818)"
24.208.200.247 - - [10/Dec/2002:18:05:09 -0500] "GET /images/header_aod2_10.gif HTTP/1.0" 304 - "http://www.indystar.com/help/help/available.html" "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; H010818)"
24.208.200.247 - - [10/Dec/2002:18:05:09 -0500] "GET /images/storysearch2.gif HTTP/1.0" 200 142 "http://www.indystar.com/help/help/available.html" "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; H010818)"