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