$result = `secedit \/EXPORT \/DB C:\\Winnt\\Security\\Database\\secedit.sdb \/CFG security.txt`;
open(SECURITY, "security.txt");
@lines = <SECURITY>;
foreach $line (@lines) {
if ($line =~ /PasswordComplexity = (\d+)/){
$passFilt = $1;
}
}