$word =~ /^-?(\d*)\.?(\d*)$/ && (length($1) || length($2));