print "$_ okay\n" if /^(\d)((??{$+ + 1})){1,8}$/; [download]
In reply to Re: Code in regexp by pg in thread Code in regexp by gjb