my $color = $file =~ /^[^-]*princepawn.*?-/ ? 'w' : 'b';