or what about unless...

opendir(DIR, $dir) || die ..
while(<DIR>) {
unless ~= $pattern {
       unlink or remove here
}

}

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to