Or use grep to filter the directory
@a = grep {$_ !~ /^\.{1,2}$/} readdir(PATCH); [download]
In reply to Re: Reading Directory by ropey in thread Reading Directory by Sun751