Select Code to Download

use strict;
use warnings;
...
printf("        \$data: !%s! \n", $data);
printf("    \$tail_len: %02Xx = %d \n", $tail_len, $tail_len);
printf("\n");

c:\@Work\Perl\monks\ozboomer>perl unpack_1.pl
".u\n\4\0\0\0\20WV2   \x80I=427 Lamp dim state=2 [SCATS=0]."
...
 $source_name: !WV2   !
        $data: !ÇI=427 Lamp dim state=2 [SCATS=0]!
    $tail_len: 2Ex = 46