Select Code to Download

use List::Util qw(min max);
...;
my $overlap = min($first_end, $second_end) - max($first_beg, $second_b
+eg) + 1;
if($overlap >= 5) { ... };