my $dir = 'c:';
my $logfile = 'c:/log.txt';
`echo $_ >> $logfile` for grep { m!^\Q$dir\E/B.+txt$!i and -M $_ < 1 } glob( "$dir/*" );