my $color = $white =~ /princepawn/ ? 'w' : 'b';

##</code><code>##

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