Dado que en este comentario solicitó una forma de agregar caracteres personalizados, una forma de hacerlo es simplemente agregarlos a la lista con qw//
, solo recuerde actualizar el conteo en rand 67
.
perl -le 'print map { (a..z,A..Z,0..9,qw{- _ / & ?})[rand 67] } 0..100'