Select Code to Download

use strict;
use warnings;
...
my $range1 = "31-52";
my $range2 = "27-50";
print max(min($2,$4)-max($1,$3)+1,0),"\n" if "$range1,$range2"=~/(\d+)
+-(\d+),(\d+)-(\d+)/;