Select Code to Download

perl -le '$_=1;print,s/(\d+) ?/+$1 $1/g,s/\S+/$&/eeg until$a++>15'

perl -Mbigint -le '$_=1;print,s/(\d+) ?/+$1 $1/g,s/\S+/$&/eeg until$a+
++>256'

perl -le '$_=o;print,s/./$&$&/g,s/(?!^)(.)(.)/$1^$2^_/eg until$a++>80'

perl -le '$_=pop;print,s/./$&$&/g,s/(?!^)(.)(.)/$1^$2^$ARGV[0]/eg unti
+l$b++>80' _ o

use strict;
use Image::Magick;
...
    #random RGB color around (206,190,68)
    return ((256-100*rand)/256,(246-100*rand)/256,(118-100*rand)/256);
}