Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
use 5.012;
...

my @results = map{(split / - /)[0]} @array;
say for @results;

Select or download this
```
GAP_SPAN09
GAP_SPAN03
OS_WLI02
```