Help for this page

Select Code to Download

Select or download this

use Regexp::Common 'list';
my $re = qr{
...
my @x = ($x =~ m{$re}g);
print join("\n", @x);

Select or download this
```
joe
sam
x(monkey,lemur)
```