Select Code to Download

my $number = "..2314-1234123.";

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