#!/usr/local/bin/perl -w
use strict;

my ($i,%hash,@row);
my $buf = "";

while (<DATA>) { $buf .= $_; }
my @sections = split(/\|/,$buf);
my @layout = qw(TITLE DATE COMMENTS URL);

open(FILE,"0614db");
while (<FILE>) {
  @row = split(/\|/,$_);
  foreach $i (qw(DATE TITLE URL COMMENTS)) {
   $hash{$i} = pop @row;
  }

  foreach $i (0..$#layout) {
   print $sections[$i],$hash{$layout[$i]};
  }
  print $sections[$#layout+1],"\n";
}
close(FILE);

__DATA__
<table width="100%" border="1" cellspacing="0" cellpadding="3">
  <tr>
    <td><font color="orange"><b>|</b></font><br>
        <font size="1">Posted - |</font>
    </td>
  </tr>
  <tr>
    <td>| (<a href="|" target="_blank"> more information</a>)
    </td>
  </tr>
</table><br>