use FLAT;

my $r1 = FLAT::Regex->new( $expr1 );
my $r2 = FLAT::Regex->new( $expr2 );

print $r1->intersect($r2)->is_empty ? "disjoint" : "overlapping";