Select Code to Download

#!/usr/bin/perl
# corpus - Generate a text of all code in a corpus
...
   1 while s/^(-?\d+)(\d{3})/$1,$2/;
   return $_;
}