$num =~ /\D/