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