Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
print "$_\n"
  for grep { /$regex/ and !$seen{$_}++ and @{ [/[a-z]/ig] } == @letter
+s }
  glob $string;

Select or download this
```
ABC---
AB-C--
...
--AB-C
--A-BC
---ABC
```