Select Code to Download

use warnings;
use strict;
...
   my @str_data = split/\|/,$str;

  p @str_data;

[
  [0]  0.740234,
...
  [17] 0.75293,
  [18] 0.742188
]