<>; $b|=$_+0for@a=glob<>; $b&1<<$_&&($c=1<<$_)for 0..11; $c|=$_&$c&&$_ for(@a)x12; print$c*($b-$c),$/,map$_&$c?W:B,@a;