$from = "news.dat";

open(FILE, "$from") || die "Can't open $from!\n";
while (<FILE>) {
   chop;
   ($title,$url,$site,$date,$description) = split(/~/,$_);
	
	print "<table width=400><tr>";
	print "<td><a href=\"$url\"><font color=blue>$title</font></a><br><font color=black>$date,$site<br>$description</font></td>";
    print "</tr></table><br>";