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

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



##</code><code>##

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

##</code><code>##

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

##</code><code>##

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