use Scalar::Util qw(looks_like_number);

...

if (my $numeral = looks_like_number($user_radius)) {