I think what you are trying to do is a return from the callback function. That is, insert return if /$dir/; before the print.

—John