#!/usr/bin/perl -w use encoding 'sjis'; for(1..512) { my @arr = split(/ */,"眠い"); $num = int(rand(2)); print $arr[$num]; } 結果は、 いいいいい眠いい眠眠い眠眠い眠 いいいいいいいいいい眠眠眠眠い い眠いい眠いい眠い眠いい眠眠眠 眠眠いいいい…

寝ていた時間は2時間。早起きすぎて3文どころかその十倍返しをキックで食らったくらいのつらさ。