while($line=<STDIN>){

	chomp($line);
	if($line=~/^\d{14}^.*^.*^.*^.*^\Z([^\d+!\d+])/){
		print $line."\n";		

	} else {	
		$line2=<STDIN>;
		chomp($line2);			
		print "$line$line2\n";	
		
		redo;
		}
}