for (@bpout) {
    print "$_\n"  if /$pattern/;
}