>>77
>while($log =~ /\G([^\r\n]+)[\r\n]+/g){

\Gってなんですか？
あとテキストファイルの読み込みは<FILEHANDLE>が一般的と明言されてますけど
例にあるreadの方が本当に速いんですか？