Thanks guys for all your replies , i was not able to use File::Find:Rule or File::Find::Match as it is not present in the perl distribution we use.
The last suggested script works for me. Would like to understand what m and $ stand for inside the if condition .
if(-f && m/\.(mp3|rm)$/)
Thanks again,
Jude Dilip.