String::Random を使う http://search.cpan.org/~steve/String-Random-0.20/ use String::Random $randstr = new String::Random; print $randstr->randregex('\d\d\d'); # ランダムな数字3文字の文字列 print $randstr->randpattern("cCn!."); # 5文字(下記参照) c: [a-z] C: [A-Z] n: [0-9] !: [~`!@$%^&*()-_+={}[]|\:;"'.<>?/#,] .: 上記 c,C,n,! 全部 s: [A-Za-z0-9./] (crypt用 かな) b: バイナリデータ