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