# ...
my $data = $telnet->buffer;
my ($ack, $other) = split /\0/, $data;
print "ACK: $ack -- OTHER: $other\n";
#...