print "<table border='3'>\n";
while (<DATA>) {
  next if m/^\s*$/;
  my @elements = split /\s+/, $_;
  print <<"  LINE";
  <tr>
    <td>@elements[0..4]</td>
    <td>$elements[5]</td>
    <td>$elements[6]</td>
  </tr>
  LINE
}
print "</table>";



__DATA__
Sat Jul 21 22:30 2001 144.02.26.399 www.myserver.com ...
Sat Jul 21 23:01 2001 352.34.12.345 www.myserver.net 

##</code><code>##

print "<table border='3'>\n";
open FILE "</path/to/logfile.txt" of die "Oops $!\n";
while (<FILE>) {
  next if m/^\s*$/;
  my @elements = split /\s+/, $_;
  print <<"  LINE";
  <tr>
    <td>@elements[0..4]</td>
    <td>$elements[5]</td>
    <td>$elements[6]</td>
  </tr>
  LINE
}
print "</table>";
close FILE;