我有一个perl脚本来执行telnet命令.此脚本从服务器接收响应字符串.实际上,服务器创建一个json字符串,然后它发送到客户端程序,但客户端程序将其显示为字符串

问题：如何将此字符串转换为json并从此json字符串中读取数据.

我有json字符串,结构类似于以下

[{"success":"21","data":[{"name":"tester","lastname":"project"}]}]

以下是我尝试将其转换为json的最后一行

@lines = $telnet->waitfor('/$/');
my @json;
@json = @{decode_json(@lines)};

它打印输出如下

HASH(0x1af068c)

提前致谢 ！！！