my $dle = sprintf "\\%03o", DLE;
my $regex = "\\A[$dle][^$dle]";
$regex = qr/$regex/;
if ($string =~ $regex) { ... }