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


##</code><code>##

#use Modern::Perl;
use strict;
user warnings;
use Data::Dumper;

my @fields =    (
				'smtp:Martin.Mueller@cde.org;x500:/O=WGR/OU=DE-ABCSOMMERLAND-01/cn=Recipients/cn=J63042;X500:/o=CKAG/ou=FIL/cn=Recipients/cn=J63042;X400:c=DE;a= ;p=CKAG;o=FIL;s=Mueller;g=Martin;;SMTP:Martin.Mueller@acme.net;smtp:J63042@acme.net;MRS:J63042@FIL.ckag.mrs',
				'smtp:Olga.Muster@cde.org;x500:/O=WGR/OU=DE-ABCSOMMERLAND-01/cn=Recipients/cn=J68392;X500:/o=CKAG/ou=FIL/cn=Recipients/cn=J68392;X400:c=DE;a= ;p=CKAG;o=FIL;s=Muster;g=Olga;;SMTP:Olga.Muster@acme.net;smtp:J68392@acme.net;MRS:J68392@FIL.CKAG.mrs',
				'smtp:j12345@acme.net;smtp:Alex.Kaiser@cde.org;MRS:j12345@FIL.ckag.mrs;SMTP:Alex.Kaiser@acme.net;X400:c=DE;a= ;p=CKAG;o=FIL;s=Kaiser;g=Alex;',
				'smtp:Joseph.Mann@cde.org;x500:/O=WGR/OU=DE-ABCSOMMERLAND-01/cn=Recipients/cn=J68355;X500:/o=CKAG/ou=FIL/cn=Recipients/cn=J68355;X400:c=DE;a= ;p=CKAG;o=FIL;s=Mann;g=Joseph;;SMTP:Joseph.Mann@acme.net;smtp:J68355@acme.net;MRS:J68355@FIL.CKAG.mrs',
				);
				
foreach my $value (@fields) {
	print "$value\n";
	print Dumper(split (';', $value));
	print "\n";
}


foreach my $value (@fields) {
	print "$value\n";
    print Dumper(split (/(MRS|mrs|smtp|SMTP|[xX][45]00):/, $value));
    print "\n";
}