return 1 unless($_[0]=~ y/0-9//c); return 0;