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