#!/usr/bin/perl -w
use strict;
use Text::CSV::Simple;

my $parser = Text::CSV::Simple->new;
$parser->want_fields(1, 2, 3, 4);
my @data = $parser->read_file(\*DATA);
foreach my $line (@data)
{
   if ($line->[0] =~ m/SMTP:/i)
   {
      print "here are the parts of the first column:\n";
      my @parts_of_first_column = split(';', $line->[0]);
      foreach my $part (@parts_of_first_column)
      {
         print " * $part\n";
      }
   }
}
__DATA__
"CN=MBX_MANA,OU= Mailboxes,DC=doman,DC=com",SMTP:Manager@domain.com;smtp:MBX_MANA@domain.com;FAX:MBX_MANA@domain.com;X400:c=us\;a= \;p=domain\;o=Exchange\;s=MANAGER\;,MBX_MANA,/o=Exchange Org/ou=First Administrative Group/cn=Configuration/cn=Servers/cn=SERVER
"CN=Guest,CN=Users,DC=domain,DC=com",,Guest,