Select Code to Download

# assuming you have a record string in $record and the field order is
# always the same.
...
$group =~ s/^CN=//;

print $group . "\n";