Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl

...
}
  
__END__
```

Select or download this

for (/(?=([A-zA-Z]{8}))/g) {
    my @l=/./g;
...
        my %h; @h{@l}=(); 7 == keys %h;
    }
}