"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,

##</code><code>##

my $parser = Text::CSV::Simple->new;
$parser->want_fields(2, 3, 4);
my @data = $parser->read_file($infile);

##</code><code>##

foreach my $line (@data) {
	chomp;
	if $line =~ /SMTP:/i 
{do stuff} }