#eventually should check a "password-encoding" field
if ( length($svc_acct->_password) == 13
|| $svc_acct->_password =~ /^\$(1|2a?)\$/ ) {
#eventually should check a "password-encoding" field
if ( length($svc_acct->_password) == 13
|| $svc_acct->_password =~ /^\$(1|2a?)\$/ ) {