$a=<>;print/^([$a]{7})$/for<>