Actually, it isn't so much code...

    my $attr= qr/(\w+)="([^"]+)"/;
    my $attrs= /<message(\s+$attr)*>/;
    my %hash;
    while(  $attrs =~ /$attr/g  ) {
        $hash{$1}= $2;
    }
    $hash{user_id}...
[download]