You can use the actual ASCII names with a little help from the pragma use charnames.

use strict;
use warnings;
use charnames ':full';

my $command = "\N{STX}H\N{EOT}";
my $reply   = "\N{STX}XTM20\N{EOT}";
[download]