Select Code to Download

# $last ||= 1; # needs to be
$last ||= $first;

my $zones = reduce {
    my( $first, $last ) = split '-', $b;
    $last ||= $first;
...
    $a
} '', split ',', 
'10-374,376-379,382-385,388-499,530-534,541-543,618,619,700-704,707-70
+9';