my $pwdchars = join( '', map {chr} ( 0x21 .. 0x7e ));
	$pwdchars =~ s/\d+//	if ( $flags{numbers} );
	$pwdchars =~ s/[A-Z]+// if ( $flags{uppercase} );
	$pwdchars =~ s/[a-z]+// if ( $flags{lowercase} );
	$pwdchars =~ s/[_\W]+//g if ( $flags{symbols} );
	$pwdchars =~ tr/1Il0O//d  if ( $flags{confusable} );