#!/afs/athena/contrib/perl/p

while(<>){
	if(!/\[/){
		split;
		print("$_[0] $_[1] $_[2] \[$_[3] $_[4]\] \"$_[5] $_[6] $_[7]\" $_[8] $_[9]\n");
	}
}