Help for this page

Select Code to Download

Select or download this
```
if ($TEMP1 =~ /(A-[0-9]+-[0-9]+)/) {
```

Select or download this

$DIR=".";
opendir CONCEPT, $DIR || die "no such dir";
...
            { print $1; }
    }
}