$line =~ /$regex/; ##

##

s/\),\(/\)\n\(/

##

##

my $regex = ;
chomp $regex;
my $subst = ;
chomp $subst;
while () {
    my $line = $_;
    s/$regex/$subst/gi;
}