Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $pattern = "^\Q$base\E(.+)\$";
my @id = grep { $_ } map { $1 if /$pattern/ } @strings;
print  "(" . join (',', @id) .")\n";

Select or download this
```
(dxpwd,dxpsf,sfpwd,ds35e,124536)
```