Help for this page

Select Code to Download

Select or download this
```
name, dash, name, dash, name
```
Select or download this
```
( name, dash ) x 2, name
```

Select or download this

my ($substr) = $s =~ /^((?:[^_]*_){2}[^_]*)/
    or die("No match\n");