foreach(split("\n",$rec)){push(@array,"$_\n";)}
	$rec='';	# Release memory