my $number = '..2314-1234123.';
if ($number =~ /\d/ * /^([\d.-]+)$/) {
    print "$1\n";
}