if (($key ne "") && ($key !~ /^[0.]+$/ ))){