Same deal, less(?) typing :) also untested

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

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

or even

my @files = find(
   file =>
   name => '*.dpt',
   grep => qr/pattern/,
   in => $dir,
);
[download]

or even

my @files = rule( file => name => '*.dpt', grep => qr/pattern/, )->in(
+ $dir );
[download]

or even an "iterator" version like foreach(@files) but without keeping a list of all the files in memory

rule(
  file => name => '*.dpt', grep => qr/pattern/,
)->exec(sub {
   my( $shortname, $path, $fullname ) = @_;
   ## do something with $fullname :)
   return !!0;    # discard filename
} ) ->in( $dir );
[download]