すまそ。＆置換するの忘れました。

use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!＆gt;＆gt;(\d+)!a{href,"#R$1"},
$&!eg,s!https?://.+?$!a{href,$&},$&!emg,s/\n/br/eg,seek(F,0,2),eval{flock F,2},
print F dt("$. ：".b(a{name,"R$.",($m=i M)&&(href,"mailto:$m")},i(N)||'nobody'.
'さん'),'：'.localtime),dd($_.p),"\n"if$_=escapeHTML i T;*x=*textfield;seek F,0
,0;put header(-charset=>$c='Shift_JIS'),start_html({lang,'ja',encoding,$c,Style
,'b{color:#080}body{background:#eee}'}),dl(<F>),hr,startform,submit('書き込む')
,' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1),endform,end_html