in reply to splitting lines a number of times
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;
|
---|