HELP! PERL script to find matched pattern

Hi all,

I just learnt Perl and I encountered a problem in my current project.
For a verilog file, i am required to write a PERL script that could match pattern to output nitrolink and nitropack. I wont know what name to grep except the pattern below.

the verilog file:

nitrolink nitrolink (
.trans_clk trans_clk_mux ),
.resetb resetb_mux ),
.app app_b ),
);

nitropack nitropack (
.trans_clk trans_clk_mux ),
.reseta reseta_mux ),
.app app_a ),
.data data_a ),
);

I really need your help for whoever know how to solve this problem.
Thank you!

Here's an excellent article on perl's grep, you can find many other resources in google.