Select Code to Download

my $C='((w)hite|(b)lack)';
open F, $file;
...
my ($c) = grep /$C\s+"princepawn"/i, <F>;

[
          'Black',
...
          'Black',
          'W',
          undef        ];