Thanks Ronald, I have customised it further and using split command to get the value:
if(/\bdn:(.*)/) {
$value=$1;
@val = split (/,/, $value);
print "$val[0]";
last;
This gives me what I need.
Original Value:
dn: ou=Sample-Collaboration, ou=assets, o=abc.com
Expected Value:
ou=Sample-Collaboration
is there any other way around to get it?