#!/usr/bin/perl
use strict;
use warnings;
use Set::IntSpan;
use Data::Dumper;


my $set1 = new Set::IntSpan "1-5, 15-20, 30-35, 50-55, 65-70";
my $set2 = new Set::IntSpan "9-35";

my $i_set = $set2 * $set1;
my $inter = elements $i_set;

print Dumper $inter;

__END__

Output:
------
$VAR1 = [ 15, 16, 17, 18, 19, 20, 30, 31, 32, 33, 34, 35 ];
[download]

hth,
PooLpi