if ( $var =~ /^-?\d+(\.\d+)?$/ ){
    # you have a float
  }