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

##</code><code>##

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