if ($d1 =~ /^white*/)