my @contents = grep { /^[Bb].+.txt$/ } @cont;

##</code><code>##

/^[Bb].+\.txt$/

##</code><code>##

open(FILE, "<$logfile"); # specify read explicitly with <
print "$logfile:\n";
print while(<FILE>);
close(FILE);