use warnings;
use strict;
use Data::Printer;

my $str='0.740234|0.758789|0.748047|0.749023|0.748047|0.754883|0.743164|0.748047|0.780273|0.739258|0.765625|0.761719|0.760742|||||0.75293|0.742188';

   my @str_data = split/\|/,$str;

  p @str_data;