my $string = "1,5,7..10,15,17..19,22";
my @array = eval($string);
print join ", ", @array;