Select Code to Download

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

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