DB<169> $av0="07090"

  DB<170> say sprintf("%u", $av0)
7090

  DB<171> say "too big?" if ($av0 ne sprintf("%u", $av0))
too big?