my $player = substr $packet, 5, -12;

##</code><code>##

my $id = unpack 'xV', $packet;
my ($ping,$score,$stats) = unpack 'V3', substr $packet, -12;