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