#!/usr/bin/evn perl use strict; use warnings; my $s = <>; chomp $s; my $g; if($s eq 'oda') { $g = 'yukiko'; } else { $g = 'oda'; } my $c = 0; for(my $i = 0; $i < 8; $i++) { my $str = <>; my @array = split //, $str; for(my $j = 0; $j < 8; $j++) { if(($array[$j] eq 'b')or($array[$j] eq 'w')){ $c++; } } } if($c % 2 == 0) { print "$s\n"; } else { print "$g\n"; } exit;