Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# match $dle's expanded, replacement is not expanded ?
$msg =~ s/\x{$dle}\x{$dle}/\x{$dle}/g;
printf ("%02x " x length($msg) . "\n", unpack ("C*", $msg));

[scott@localhost test]$ ./test.pl
Illegal hexadecimal digit '$' ignored at ./test.pl line 7.
31 32 00 33
[scott@localhost test]$