my $line = <FILE>;
$line =~ s/\(|\)//g;
my @numbers = split /\,|\;/, $line;