#! /usr/local/bin/perl
print "Content-type: text/html\n\n";

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

print "<html><body>\n;"

open(FH, 'log.txt');
while (<FH>) { while(/[(.*?)]/g){ $h{$1}++; } }
close(FH);

foreach $k (sort keys %h) {
print $k, ' => ', $h{$k}, "\n";
}
print "</body></html>";

頑張れなくてすいません･･･。本当に丸投げになってしまいますが、
どこが足りないか教えていただきたいです。お願いしますm(__)m

表示は、HTMLでテーブルを使って
|￣￣￣￣￣￣￣￣￣￣￣|
|　りんご　｜　　２　　|
|―――――――――――|
|　みかん　｜　　０　　|
|―――――――――――|
|　　：　　｜　　：　　|
|＿＿＿＿＿＿＿＿＿＿＿|

のような感じに表示させたいです。