История изменений
Исправление Minoru, (текущая версия) :
Perl (труЪ-вариант):
$ perl -pe '$r = int(rand(20)); s/(\w)/--$r == 0 ? "*" : $1/ge' <input.txt
SUQI-LUEI-3YJ4-J*93-Z4RM
3JF0-XF*N-FPDY-AU7L-FBU8
Z429-WZ2L-TIYL-S4LG-*4UF
P.S. rand(20) можно поменять на rand(@{ [/\w/g] }) по вкусу.
Исходная версия Minoru, :
Perl (труЪ-вариант):
$ perl -pe '$r = int(rand(20)); s/(\w)/--$r == 0 ? "*" : $1/ge' <input.txt
SUQI-LUEI-3YJ4-J*93-Z4RM
3JF0-XF*N-FPDY-AU7L-FBU8
Z429-WZ2L-TIYL-S4LG-*4UF