Help for this page

Select Code to Download

Select or download this
```
@result = map /\w{3}_(\w)/, @inp;
```

Select or download this

$inp{$_} = 1 foreach map /\w{3}_(\w)/, @inp;