unless ($foo =~ /^\-?\d*\.?\d*$/) {
   # do something
}