my ($one, $two, $three) = split( /(\d+)\s+/, $line, 2);

##</code><code>##

    split(/([,-])/, "1-10,20", 3);

##</code><code>##

    (1, '-', 10, ',', 20)