Select Code to Download

perl -e '@x=qw| 28 8a 1c 59 cc 85|;
         my $o="";
...
        chop $o;
        print "$o\n"'
288a.1c59.cc85

perl -e '@x=qw| 28 8a 1c 59 cc 85|; 
    while ($_=shift @x){
    print "$_" .shift (@x) . "."}'