#!/usr/bin/perl

use strict;

my $data = '\player_0\STOMP\frags_0\0\ping_0\ 146\team_0\0\mesh_0\Male Soldier\skin_0\TOPModels.Skins.CCSM\face_0\TOPModels.Skins.Legs\ngsecret_0\false\player_1\animals\frags_1\0\ping_1\ 374\team_1\1\mesh_1\Male Soldier\skin_1\TOPModels.Skins.SFMe\face_1\TOPModels.Skins.SWATTex0\ngsecret_1\false\player_2\Rigodon\frags_2\0\ping_2\ 159\team_2\1\mesh_2\Male Soldier\skin_2\TOPModels.Skins.SFMe\face_2\TOPModels.Skins.SWATTex0\ngsecret_2\false\queryid\64.1';

my %hash = split(/\\/, $data);

foreach (keys %hash) {
  print "$_ = $hash{$_}\n";
}

exit;