Perl: isNumeric