小编Kab*_*ngh的帖子

我有以下代码：

$codelist = 00;

$OK = '0';
$OK = () = $codelist =~ /$OK/g;

print "$OK\n"; #answer is 2.

表达式$OK = () = $codelist =~ /$OK/g是如何计算的？优先顺序是什么？