perl -e '@x=qw| 28 8a 1c 59 cc 85|;
         my $o="";
         for (my $i=0; $i<$#x; $i+=2){
               $o.=$x[$i].$x[$i+1]."."}
        chop $o;
        print "$o\n"'
288a.1c59.cc85