perl -e "@re='abcdefg'=~/(..)/g;print join ',', @re;"
#prints ab,cd,ef