Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
# match $dle's expanded, replacement is not expanded ?
$msg =~ s/$DLE_C$DLE_C/$DLE_C/g;
printf ("%02x " x length($msg) . "\n", unpack ("C*", $msg));

Select or download this
```
$msg =~ s/(\x{$dle})\x{$dle}/$1/g;
```