# run.pl, will be created after running "prepare_run.pl" while using "main.pl" as a template.

use strict;
use warnings;

while(<DATA>){	
	print $_ if s/\),\(/\)\n\(/gi;
}

__DATA__
(123),(456),(789)
(abc),(def),(ghi)