perl -ple"s[(?<=\s(\d{3})\d\d)\s(?=(\d{3})\d\d\s)][$1+1==$2 ? qq[\n] : ' ' ]ge" in > out