Select Code to Download

perl -le "for($ARGV[0]=~/\-/g){my@a;map{$a[$_]++for(eval s/\-/\.\./r)}
+map{s/^([^,]*),?//;$1}@ARGV;print+(join'-',(grep$a[$_]==2,0..$#a)[0,-
+1])}"    
 
...
84-93
107-120
137-149

sub _oneliner{
        my @res;
...

# map{$arr[$_]++ for(eval s/\-/\.\./r)}map{s/^([^,]*),?//;$1}$TM_part1
+,$TM_part2;
# should be:
...
107-120
137-149