chomp(my $black = ); my $white = ($black eq 'oda') ? 'yukiko' : 'oda'; my ($b_num, $w_num) = (0, 0); while (chomp($_ = )) { my @array = split('', $_); $b_num += scalar(grep {$_ eq 'b'} @array); $w_num += scalar(grep {$_ eq 'w'} @array); } print(($b_num > $w_num) ? $white : $black); print "\n";