is_perl_number to util