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