my $record = substr $data, 0, $CDRLEN, undef;