Select Code to Download

use Set::IntSpan; # CPAN rules :-)
use strict;
...
    my $set = Set::IntSpan->new($run);
    $set->elements;
}

use Set::IntSpan; # CPAN rules :-)
use strict;
...
  $run =~ s/,/, /g; # give them the spaces
  $run;
}