Select Code to Download

my $pswd_chars = join( '', map {chr} ( 0x21 .. 0x7e ));
$pswd_chars =~ s/\d+//   if ( $numbers );
...
if ( length( $pswd_chars ) == 0 ) {
    push @errmsg, "\n *** You eliminated all possible characters.";
}

$pswd_chars =~ tr/1Il0O//d  if ( $confusable );

sub GenPass {
    my ( $pswd_chars, $pswd_len ) = @_;
...
    }
    return $pswd;
}