($second_beg>=($first_beg-5)) && ($first_beg<=($second_beg+5))

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