Select Code to Download

while(my $line51 = <$ifh51>) {
   # my $line51 = $_ if /\bbist_mode\b/;
...
    print $c;
    print $d;
  }

Win8 Strawberry 5.8.9.5 (32)  Wed 06/09/2021 15:18:22
C:\@Work\Perl\monks
...
("A", ["foo, bist_mode bar"])
("B", "foo, bist_mode bar")
("C", "foo bist_mode bar")

Win8 Strawberry 5.8.9.5 (32)  Wed 06/09/2021 15:25:55
C:\@Work\Perl\monks
...
  "bist_ctlr_mem_type_sel\n",
  "bist_ctlr_mode_sel\n",
]