my $color = ('b','w')[scalar $white =~ /princepawn/];