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

$/ = "\n\n";

while(<>){
	s/\n//g;
	print("$_\n");
}