my @files = File::Find::Rule->file()
                               ->name( '*.dpt' )
                               ->grep( $pattern )
                               ->in( $dir );