Help for this page
Select Code to Download
Select
or
download this
use constant DLE => 0x10;
Select
or
download this
my $dle = chr(DLE); $msg =~ /\A$dle[^$dle]/;