perl中的substr问题

Question

我的perl脚本中有以下代码，似乎无法按预期工作。有人可以帮我这个吗？

$status = substr $response, 0, 2;
print "Response status is $status\n";

if ($status eq "OK")
{
  #Do some work 
}
else
{
  #Do some other work
}

即使$ response包含“OK”作为最初的2个字符，$ status检查也会进入else部分。当我打印$ status时，我得到响应，4f4b是ASCII值“OK”。如何使病情成功？请帮帮我。