my $line = 1 |  0.116 0.088 0.173 0.624;

##</code><code>##

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