Small script to parse the output of NTDSExtract (Perl)