made extracting missing mates perl script more stringent to avoid false reads