#!/usr/bin/perl
use strict;
use warnings;
#use Regexp::Debugger;

while( <DATA> ) {
    s[\s(\d+)\d\d\K\s(?=(\d+)\d\d)]{
        $1 + 1 == $2 ? "\n" : ' '
    }ge;
    print;
}

__DATA__
105 106 107 108 109 110 211 212 213
1115 1116 1117 1118 1119 1120 1121 1122 1123
12345 12346 12347 12348 12349 12350 12351 12353

##</code><code>##

105 106 107 108 109 210 211 212 213
1115 1116 1117 1118 1119 1120 1121 1122 1123
12345 12346 12347 12348 12349 12350 12351 12353