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

##</code><code>##

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