Help for this page

Select Code to Download

Select or download this

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