or download this
$_ = <<EOF;
msgagt=ESM_WMB_AIX,sec_id=Sec_id,severity=Low,node=test,msgnode=qwmbap
+01.xxxxxxxxxxxxx.net,utc=2007-04-26 18:01:59.472+00:00,om=UID=3a7affd
+6-f420-11db-80b1-000000000000,AlertCode=AEM001,AlertType=AEM-default,
+AppName=AEM-CommonService2,Message=5004:An error has been reported by
+ the BIPXML4C component.:XML
...
my %hash = map { split /=/, $_, 2 } split /,/;
print $hash{'msgagt'}, "\n";