Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my @words = $restOfLine =~ m{(\S+)\s+fish}g;

print qq{$_\n} for @words;

Select or download this
```
one
two
red
blue
```