Unfortunately, any simple way of picking a random line from
a text file will probably over-select long lines, or perhaps the lines after long lines. TANSTAAFL.
As for reading a random line from a file: If you're resigned to reading the whole file, this is a neat hack:
while (<FILE>) {
$chosen_line = $_ if rand($.) < 1;
}