open (INPUTFILE, "< $filein");
while (<INPUTFILE>) {
	my $line=$_;
	$line =~ s/\),\(/\)\n\(/gi;
};