Select Code to Download

smtp:Martin.Mueller@cde.org;x500:/O=WGR/OU=DE-ABCSOMMERLAND-01/cn=Reci
+pients/cn=J63042;X500:/o=CKAG/ou=FIL/cn=Recipients/cn=J63042;X400:c=D
+E;a= ;p=CKAG;o=FIL;s=Mueller;g=Martin;;SMTP:Martin.Mueller@acme.net;s
+mtp:J63042@acme.net;MRS:J63042@FIL.ckag.mrs

#use Modern::Perl;
use strict;
user warnings;
...
    print Dumper(split (/(MRS|mrs|smtp|SMTP|[xX][45]00):/, $value));
    print "\n";
}