c:\@Work\Perl\monks\ozboomer>perl unpack_1.pl
".u\n\4\0\0\0\20WV2   \x80I=427 Lamp dim state=2 [SCATS=0]."
(48, 46, 13)
       Format: 'x[C] C3 C3 C a6 a33 C'
    $body_len: 2Ex = 46
    $date_str: 4/10/2017
    $time_str: 00:00:00
$rec_type_idx: 10x = 16
 $source_name: !WV2   !
        $data: !ÇI=427 Lamp dim state=2 [SCATS=0]!
    $tail_len: 2Ex = 46