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