Select Code to Download

perl -e '$_ = "a"; while (m/(?:\G|^)(a)/g) {print "[$1]\n";}'

perl -e '$_ = "a"; while (m/\G(a)/g) {print "[$1]\n";}'