Missing right curly or square bracket at (eval 1) line 2614, at end of line
syntax error at (eval 1) line 2614, at EOF

↑がエラーメッセージです。
最後のサブルーチンが
下のです。
# Sub Decode #
sub decode {
　　　　if ($ENV{'REQUEST_METHOD'} eq "POST") {
　　　　　　　　$post = 1;
　　　　　　　　read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
　　　　　　　　@pairs = split(/&/, $buffer);
　　　　} else { @pairs = split(/&/, $ENV{'QUERY_STRING'}); }

　　　　foreach $pair (@pairs) {
　　　　　　　　($name, $value) = split(/=/, $pair);
　　　　　　　　$value =~ tr/+/ /;
　　　　　　　　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

　　　　　　　　&jcode'convert(*value,'sjis');

　　　　　　　　$value =~ s/</&lt;/g;
　　　　　　　　$value =~ s/>/&gt;/g;
　　　　　　　　$value =~ s/"/&quot;/g;
　　　　　　　　$value =~ s/\,/，/g;
　　　　　　　　$value =~ s/△/▲/g;
　　　　　　　　$value =~ s/\r\n/<br>/g;
　　　　　　　　$value =~ s/\r/<br>/g;
　　　　　　　　$value =~ s/\n/<br>/g;

　　　　　　　　$Fm{$name} = $value;
　　　　}
}
[EOF]（ここで2608行目）
っで終わっています･･･。

▼関連発言
│
└◆601:あの･･･ [戒] 05/23 01:41
　└◆602:Re:あの･･･ [moon] 05/23 08:41
　　└◆603:Re[2]:あの･･･ [戒] 05/23 18:39
　　　└◆604:Re[3]:あの･･･ [moon] 05/24 08:54
　　　　└◆605:Re[4]:あの･･･ [戒] 05/24 13:19
　　　　　└◆606:Re[5]:あの･･･ [moon] 05/24 13:52
　　　　　　└◆607:Re[6]:あの･･･ [戒] 05/24 14:38
　　　　　　　└◆608:Re[7]:あの･･･ [moon] 05/24 14:47
　　　　　　　　└◆609:Re[8]:あの･･･ [戒] 05/24 14:54
　　　　　　　　　└◆610:Re[9]:あの･･･ [moon] 05/24 17:23
　　　　　　　　　　└◆611:Re[10]:あの･･･ [戒] 05/24 18:07
　　　　　　　　　　　└◆612:Re[11]:あの･･･ [moon] 05/24 18:44
　　　　　　　　　　　　└◆613:Re[12]:あの･･･ [戒] 05/24 19:09
　　　　　　　　　　　　　└◆614:Re[13]:あの･･･ [moon] 05/24 19:19
　　　　　　　　　　　　　　└◆615:Re[14]:あの･･･ [戒] 05/24 19:29<-last