if( $dorient =~ /^([^_]+)_/ ) {
  $rs[2] = $1;
}