use constant DLE => chr(0x10);

my $rx = do { local $_ = quotemeta DLE; qr/ \A $_ [^$_] /x };

$msg =~ $rx;