$number =~ /^([\d.-]*\d[\d.-]*)$/ and print "$1\n";