my $dn = 'corpid=xxxxxx,ou=people,o=corp';
my ($ou) = $dn =~ /ou=([^,]*)/;
print "ou = $ou\n";

##</code><code>##

my $dn = 'corpid=xxxxxx,ou=people,o=corp';
my %tokens = map {split /=/} split /,/, $dn;
print "ou = $tokens{ou}\n";

##</code><code>##

my %tokens = (
  corpid => 'xxxxxx',
  ou => 'people',
  o => 'corp',
);