perl ですよね？
うまく行くかどうか自信がないけど、既に dat にある DATE 部分の font タグだけ
例外的に処理するって感じならば…

$time =~ s/BE:(\d+)-([^ ]*<font.*\/font>[^ ]*)|([^ ]*)/<a href="javascript:be($1);">?$2<\/a>/;