use Modern::Perl;
use Scalar::Util qw /looks_like_number/;

my @data=("conteent" , , , ,25.36,36.36,85.1,'xx','.....');

for (@data) {
    say $_ if looks_like_number($_);
}

##</code><code>##

~/perl/ex/perlmonks: perl check_numbers.pl 
25.36
36.36
85.1