Hm, mit =~ /^\d+$/, bei Bedarf kannst auch noch eine Minuszeichen vorn dran erlauben...

Früher hab' ich das gemacht, indem ich überprüft hab, ob die Zahl größer (oder ungleich) 0 ist oder eben '0', allerdings würde das bei Perl nicht so recht gehen, bzw. könnte manche Sachen zulassen, die man gar nicht zulassen möchte, z.B. der String '2b' ergibt in numerischem Kontext nicht 0, auch nicht 1, sondern 2...