Select Code to Download

#!/usr/bin/env perl

...
    say for $pre_subject, $subject, $post_subject;
    printf $format, "$_:", $found{$_} for @fields;
}

=== Subject ==============================
--[RV: vRealize Operations Manager] new alert Type:Virtualization/Hype
+rvisor, Sub-Type:Availability, State:critical, Object Type:VMwareAdap
+ter Instance, Name:HOSTVCENTER01 from 192.168.1.121---
...
object:  Not supplied!
host:    HOSTVCENTER01
from:    192.168.1.121