print+grep+($c=$c<1&&/^..$/?3:$c)--<1,@Array  # 44 chars.