Perlscript to combine two Subsurface dives which are too far apart from Subsurface itself to merge