sub multiChomp
{
	my @out = $_;
	for (@out)
	{
		chomp;
	}
	return wantarray ? @out : $out[0]
}

@array = <> ;
print join('',multiChomp(@array));