$case{'judges'}=~ s/\n/ /g;
to
$case{'judges'}=~ s/\r\n/ /g;