Select Code to Download

    my $line = 1 |  0.116 0.088 0.173 0.624;

     my $line = "0.116 0.088 0.173 0.624";
     my @prob = $line =~ m/(\b0\.[0-9][0-9][0-9])/g;
...
     print $prob[2], "\n";
     print $prob[3], "\n";