ちょっと疲れました。少しお酒入れてもう寝ます。

いい感じのモジュール名が思いつかない。

#!/usr/bin/perl use strict; use warnings; { local $/ = "%\n"; srand; my $line; rand $. < 1 and $line = $_ while <DATA>; chomp $line; print $line; } __DATA__ アブラハムの子であるダビデの子、イエス・キリストの系図。 -- マタイの福音書 1:1 % アブラ</data>…