$num gt "9"

##</code><code>##

$num =~ /\D/