#!/usr/bin/perl
use warnings;
use strict;

open my $NEW_FAM, '>', 'C:/Scripts/TEST/History_FAM_Test.txt'
    or die "Could not open target file. $!";
    
my $line1 = "Positive for Depression (  mother ; sister  ),  Type 2 Diabetes (  father ; mother ; grandparents  ) and  Anxiety ( mother) .";
my $line2 = "Cancer ( mother, grandmother )";

push(my @test, $line1);
push(@test, $line2); 

for my $test (@test) {
        if ($test =~ /\(/) {
	        print "Has () ... \n";
	        $test =~ s/Positive\sfor\s//;
	         my @var3 = $test =~ /\((.*)\)/g;
                 # Extract and then separate into different rows based on the family members inside the parenthesis 
                 #print into the file with pipes as separators
        }
}