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