$s =~ s/
	   (
	     (
	       (.) \g{-1} 
	     )+
	   |
	       (.) (?1) \g{-1}
	   )
	 //xg;