Select Code to Download

a 11-23
b 33-39
c 40-45
d 48-58

1-34
35-39
...
43-49
51-59
62-90

a 11-23
b 33-34
...
c 43-45
d 48-49
d 51-58

#!/usr/bin/perl
use warnings;
...
        say $ranges[$range_idx][NAME], " $start-$end";
    } while $to > ($from = 1 + $end);
}

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,