in reply to key value pair or simply a regexp

I think you're going to have a problem with the om=UID=3a7affd6-f420-11db-80b1-000000000000 as it contains two equals signs.
I'd do this: 

  my %h = map { ( split /=/, $_, 2 ) } split /,/;

[download]

Then you can stuff the data in %h into your HoA, or just 

print "$h{'msgagt'}\n" if exists $h{'msgagt'};

[download]
or whatever.

A word spoken in Mind will reach its own level, in the objective world, by its own weight

Replies are listed 'Best First'.
Re^2: key value pair or simply a regexp
by mikejones (Scribe) on May 18, 2007 at 19:46 UTC
    PLayed with it a little changing the split from 
    my %h = map { ( split /=/, $_, 2 ) } split /,/;
to
my %h = map { ( split /=/, $_, 1 ) } split /,/;
and
my %h = map { ( split /=/, $_, 3 ) } split /,/;

print "$h{'msgagt'}\n" if exists $h{'msgagt'};

    [download]
    Output was all the same. 
    ESM_WMB_AIX
Odd number of elements in hash assignment at parse_4_ovo.plx line 20, 
+<$out> line 3.
Odd number of elements in hash assignment at parse_4_ovo.plx line 20, 
+<$out> line 7.
Odd number of elements in hash assignment at parse_4_ovo.plx line 20, 
+<$out> line 9.
Odd number of elements in hash assignment at parse_4_ovo.plx line 20, 
+<$out> line 11.

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom