Select Code to Download

__DATA__
Some Company; Some Street 52
...
23456 City2
Yet Another Company; New Street 11
34546 City3

use strict;
use warnings;
...
    $_=~s/([\w; ]+\d+)\n(\d{5})/$1$2/gms;
    print;
}

use strict;
use warnings;
...
    
    print;
}