Help for this page

Select Code to Download

Select or download this
```
$dorient =~ /^([^_]+)_/;
$rs[2] = $1;
```

Select or download this

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