use strict;
use warnings;

use Data::Dump qw(dd);

use constant FIXED_FIELDS => 'C3 C3 C a6';

my @data = (
    0x2E, 0x75, 0x0A, 0x04, 0x00, 0x00, 0x00, 0x10, 0x57, 0x56,
    0x32, 0x20, 0x20, 0x20, 0x80, 0x49, 0x3D, 0x34, 0x32, 0x37,
    0x20, 0x4C, 0x61, 0x6D, 0x70, 0x20, 0x64, 0x69, 0x6D, 0x20,
    0x73, 0x74, 0x61, 0x74, 0x65, 0x3D, 0x32, 0x20, 0x5B, 0x53,
    0x43, 0x41, 0x54, 0x53, 0x3D, 0x30, 0x5D, 0x2E,
    );

my $inbuf = pack 'C*', @data;
dd $inbuf;

my $total_len       = length $inbuf;
my $body_len        = unpack 'C', $inbuf;
my $total_fixed_len = length pack FIXED_FIELDS;
dd $total_len, $body_len, $total_fixed_len;

my $data_len = $body_len - $total_fixed_len;

my $unpacker = "x[C] ${ \FIXED_FIELDS } a$data_len C";

my ($year, $mon, $day,  $hour, $min, $sec,  $rec_type_idx,
    $source_name, $data, $tail_len) =
    unpack $unpacker, $inbuf;

my $date_str = sprintf("%s/%s/%s", $day, $mon, $year+1900);
my $time_str = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
   $rec_type_idx &= 0x1F;      # Only use b0-b6

printf("       Format: '%s' \n", $unpacker);
printf("    \$body_len: %02Xx = %d \n", $body_len, $body_len);
printf("    \$date_str: %s \n", $date_str);
printf("    \$time_str: %s \n", $time_str);
printf("\$rec_type_idx: %02Xx = %d \n", $rec_type_idx, $rec_type_idx);
printf(" \$source_name: !%s! \n", $source_name);
printf("        \$data: !%s! \n", $data);
printf("    \$tail_len: %02Xx = %d \n", $tail_len, $tail_len);
printf("\n");
[download]