Help for this page

Select Code to Download

Select or download this

@a = (
    'a b c d e',
...

@b = map (join(' ', (split /\s/)[1, 4]), @a);
print "$_\n" for @b;

Select or download this
```
b e
g j
l o
q t
v y
```