Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

while (<DATA>) {
...
s600ad
s00012
abc-def-123456

Select or download this
```
s50012 -> 12
abc-def-123456 -> 56
```