Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl -w
use strict;
...
for (@words) {
    print "$_\n" if /^(\w+)\1$/ || /^(\w+)(\w+)\2\1$/;
}

Select or download this
```
beriberi
coco
...
toto
tutu
assa
```