You probably want something like:

if($a =~ /\D/) {
    # Not a number
}
[download]

The /D matches non-digits, so this will be true if $a contains any non-digits.