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