$ perl -le' my $line = "( 0, 670); 3.2; 7.8; 9.4; 10.2; 12.6;"; my @split1 = $line =~ /\d+(?:\.\d+)?/g; print for @split1; ' 0 670 3.2 7.8 9.4 10.2 12.6