use strict;
use warnings;


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