#!/usr/bin/perl
use strict;
use warnings;

my $hexcommand="02313832300030010000c00000303035313030303831303234303434383236383331343135353430303030303030303030343135353430303003";
my $octcommand = pack   ( "H*", $hexcommand );
print "DERRIVED OCTAL: $octcommand\n";

my $goodoct="\2\61\70\62\60\0\60\1\0\0\300\0\0\60\60\65\61\60\60\60\70\61\60\62\64\60\64\64\70\62\66\70\63\61\65\65\64\60\60\60\60\60\60\60\60\60\60\64\61\65\65\64\60\60\60\3";
print "    GOOD OCTAL: $goodoct\n";

##</code><code>##

DERRIVED OCTAL: 18200&#65533;00510008102404482683141554000000000041554000
    GOOD OCTAL: 18200&#65533;005100081024044826831554000000000041554000