Select Code to Download

sub xlat {
  my ($octets) = @_ ;
  return pack('B*', unpack('b*', $octets)) ;
} ;

my $test = "\xC5\x11\x01\x80\x5A" ;

...
  $s =~ s/([01]{8})(?=[01])/$1:/g ;
  return $s ;
} ;