********PERL************

You are asked to provide a list of security groups a user is a member of. You write a script to pull the data from Active Directory but are left with the following Distinguished Names (DN). Write a Perl script to remove everything except the name of the security group. There are several ways to accomplish this

HINT: Use index to find the location of the comma HINT: Use substr to extract the group name HINT: You could alsso use a combination of split and substr instead

Sample input

CN=DL.WG.UTO.EAS,OU=Trusted Groups,DN=ASURITE,DN=ad.asu.edu CN=DL.ORG.UTO,DN=ASURITE,DN=ad.asu.edu CN=DL.WG.Staff.Poly,DN=ASURITE,DN=ad.asu.edu CN=Domain Users,DN=ASURITE,DN=ad.asu.edu

Sample invocation and output

% ./myScript.pl domain_groups.txt DL.WG.UTO.EAS DL.ORG.UTO DL.WG.Staff.Poly Domain Users