#!/usr/bin/perl
# Created:20070321
# By Jeff Connelly
#
# Parse MySpaceIM messages

use strict;

my ($msg, %hash);

undef $/;
$msg = <DATA>;

while ($msg =~ m/\\([^\\]+)\\([^\\]+)/g)
{
    $hash{$1} = $2;
}

for my $key (keys %hash)
{
    print "$key\t$hash{$key}\n";
}

__DATA__
\lc\1\nc\ycPyc35qhVot5IZouwmruIoiTnlD3wTJIazbmarrN2TI4oJl2OXMm52Phl5ATo4XMbA2ePNC5crUj4wB1EgLsg==\id\1\final\\persistr\\cmd\257\dsn\101\uid\0\lid\20\rid\11667418\body\AdUnitRefreshInterval=10AlertPollInterval=180ChatRoomUserIDs=78744676;142663391;142910130;123521495;138528147;140271072;163733130CurClientVersion=595EnableIMBrowse=FalseMaxAddAllFriends=100MaxContacts=1000MinClientVersion=529MySpaceNowTimer=720PersistenceDataTimeout=900UseWebChallenge=1WebTicketGoHome=False\final\\error\\err\1\fatal\\errmsg\There was an error parsing an incoming request.\final\