perl -E '
    use Scalar::Util "looks_like_number";

    for (qw{Inf -Inf Infinity -Infinity}) {
        say "$_: ", looks_like_number($_) ? 1 : 0;
    }
'
Inf: 1
-Inf: 1
Infinity: 1
-Infinity: 1