rand($.) < 1 && ($line = $_) while <>;

Pick a random line from a file without knowing its size beforehand. The algorithm can be easily adjusted to many a thing...

How come Perl is so fun?

merely 93% of paint splatters parse as valid Perl.