$num gt "9"
[download]

That made me blink for a second before I realized what was going on. Then I noticed you're missing the other half of the condition ($num lt "0").

You'd do better to check whether non-digits match in $num:

$num =~ /\D/
[download]

This is self-documenting and complete.