厨な質問をば。

if ($errmsgが10桁の数字だったら)

というのは、Perlでどう書いたらいいのかしら。