$line =~ s/[(),;]//g;
my @split1 = split " ", $line;