Select Code to Download

$str = "123-135, 111-119, 127-130, 140-145";
@nums = split(/\s*[-,]\s*/, $str);

$str = "123-135, 111-119, 127-130, 140-145";
@nums = map { [ split(/-/, $_) ] } split(/\s*,\s*/, $str);