Select Code to Download

#!/usr/bin/perl
use strict;
...
        print LOG "$_\n" if $_>=1;
}
close LOG;

C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}