use strict;
use warnings;


while(<DATA>)	{
	
	$_=~s/([\w; ]+\d+)\n(\d{5})/$1$2/gms;
	print;
}