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