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