"" =~ /(?=)/;  # reset match vars
  $dorient =~ /^([^_]+)_/;
  $rs[2] = $1;   # or undef if no match