Do you want help with the perl script, or help by being given a perl script?

Assuming the former, what have you tried? Or do you need some hints to get started? See: glob and -M, combined with grep... that should be everything you need.

If you mean the latter, you've come to the wrong place...