in reply to splitting lines a number of times

If you don't care about how many numbers are in your parentheses and know all lines follow the same format, you could remove the parentheses from the input line and then split on either a comma or a semicolon. In particular, judicious use of | (or) could save you typing. This is all covered in perlre and perlretut. You could do it like this:

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

It'd make sense to swap to a different delimiter to reduce the LTS, of course.

Update: Of course there's no need to use split at all. The one liner:

my($test1,$test2,@numbers) = (my $line = <FILE>) =~ /[0-9.]+/g;