#!d:\perl\bin\perl.exe

my $pth = "\\\\127.0.0.1\\bex";
opendir(Directory, $pth) or die "Cannot Open Directory";
while ( $_ = readdir(Directory) ) {
  if ( m!^[Bb].+\.txt$! and -M "$path\\$_" > 1 ) {
     open ( FILE, "$path\\$_" > 1 ) or die "$!";
     while ( my $line = <FILE> ) {
       print $line;
     }
     close(FILE);
  }
}
closedir(Directory);