sub parse_verilog
[download]

If you haven't already looked into Verilog::Parser, give it a try; it can be used to parse Verilog files.

Update: here is an old post of mine with example code: Re^3: verilog perl usage (Verilog::Netlist)