用perl求一语句如何写，多谢

用perl求一语句怎么写，谢谢！
怎样判断一个字符串   $a   中有非数字的字符。

我的意思就是字符串   $a   中只允许有   0-9   这10个字符，如果有了其它的字符就报错，请各位高手告诉我这个语句用perl怎么写？谢谢！



[解决办法]
$a =~ /^\d*$/;

or

print "error " if $a =~ /\D/;