return 1 if length $_[0] && !($_[0]=~ y/0-9//c);
  return 0;