use strict;

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

open (LOG, "missatges.txt") || die "$!";
while (<LOG>) {
chomp;
my @attributes = split/\|/;
print "<B>$attributes[0] . '||' . $attributes[1]</B>\n";
print "<BR>\n";
print "$attributes[2]\n";
print "<BR><BR>\n";
}
CLOSE LOG;