use File::Find;
find( sub { 
    /\.tex$/ && print "$File::Find::name\n" },
  'Docs');

##</code><code>##

find(\&wanted, 'Docs');
sub wanted {
  /\.tex$/ && print "$File::Find::name\n";
}