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

##</code><code>##

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