Select Code to Download

perl -le '$_ = "abcdefg"; while (/(...)/g) { print $1; pos($_) -= leng
+th($1); pos($_)++ }'