my $i; ++$i, print $i;
1

##</code><code>##

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

##</code><code>##

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