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($_);
}