Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l
#
...
   map  { [ $_, m{^([a-z]+)(\d+)$} ? ( 1, $1, $2 ) : ( 0, q{}, 0 ) ] }
   @articleIDs;
print for @sortedAllIDs, q{-} x 15;

Select or download this
```
a5
a8
...
27
badID
---------------
```