$s = "abcdef"; print "$1,$2\n" while $s =~ /(.)(?=.(.))/g;