$number = "..2341-24234233.";
if ($number =~ /\d/ && $number =~ /^([\d.-]*)$/) {
    print $1;
}