解析perl代码, 获取其中变量, 函数

大家好, 我现在有这样一个需求,

给出一段perl代码, 获取其中的变量定义和函数定义, 后来发现这相当于要做一个perl解析器了, 不知道各位大侠有没有这样的经历, 如有请指点一二.

我尝试从perl编译器源码来获取帮助, 不知道lib/B/Deparse.pm是不是perl进行源码解析的地方?

谢谢大家.

上原始需求 —— 这样更加像交流。