if($input =~ /^(-?)(\d+.)?\d+$/)