Select Code to Download

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

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