Select Code to Download

use Modern::Perl;
use Parse::Range qw(parse_range);

...

my @arr = parse_range($str);
say "@arr";