use File::Find::Rule qw/ find rule/;

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