The answer is yes. However, this sounds like a work assignment and you need to include at least a sample of the input and output data if you expect someone to post a solution. It's not interesting enough to be solved based on the clues given so far. Short of that, you could try hiring one of us for $25-$50 and get a script that does everything you want without you having to expend any brain power.

See functions open, opendir, readdir, while, print, and read up on Perl regex (or the function index, depending on your needs).