next if $data =~ /[^0-9.]/;