if ($array[1]!='W') { $length= $array[3] }
if ($array[3]!='W') { push @id, $array[3] }