$i = 0;
until( $F[$i] =~ m/MD:Z/ || $i > $#F )
  $i += 1
}
if ($i <= $#F) {
  print "It's field $i\n"
}