Select Code to Download

use strict;
use warnings;

$_ = '1,2,3,4,5';
print /(,?\d)+/;

,5

use strict;
use warnings;

...
foreach (@matches) {
        print "  $_\n";
}