$_ x=52,print/\G(.)\D*?\1/g,$/for<>