use constant DLE => 0x10;

##</code><code>##

my $dle = chr(DLE);
$msg =~ /\A$dle[^$dle]/;