VALUE:while($file[$j][$n] =~ /^[\.\d ]+$/)