关于运行perl文件出现syntax error

Question

最近这两天接触的一个perl2java的perl代码。运行出来了这么一个结果。说运行出来的代码有syntax问题。我不甚了解perl，所以我看着觉得并没有什么错误呀。在这占据各位一点时间来帮扶在下。
P.S报错里提示的行码大概是要比真实行码大1.

430       
431       
432     $main::.*->setText($content);
433     $self->[4] = $LEX_TOKEN = $main::.*;
434     $content = &{$main::.*->action}($LEX_TOKEN, $content);
435     ($LEX_TOKEN = $self->getToken)->setText($content);
436      
437     last CASE;
438   };
439 
440 
441 
442   }#CASE
443   
444   $self->[4] = $LEX_TOKEN;
445   $LEX_TOKEN;
446 }

syntax error at (eval 176) line 435, near "*;
    $content "
syntax error at (eval 176) line 445, near "}#CASE
  
  $self"
syntax error at (eval 176) line 447, near ";
}"