Select Code to Download

25-40,74-93,99-120,130-149
31-47,84-99,107-123,137-151

use Set::IntSpan;

...
    $u_set =  intersect $set1 $set2;
}
print "Union of strings:".$u_set."\n";