I would suggest passing readir to a grep.
I used it in one of my scripts like so,

  @Files = grep {not /^(\.\.?|list\.txt)$/} readdir(DIR);
[download]

This returned all files except '.' and '..' and a file named 'list.txt'.

------
The Price of Freedom is Eternal Vigilance