eval {
        # make conversion failure a fatal error
        use warnings FATAL => qw(numeric);
        # try to use $s as a number
        $number = 0 + $s;
        1;
    } or do {
        my $err = $@ || "Unknown error";
        # exception happened, thus not a number
        $number = undef;
    };