rand($.) < 1 && ($line = $_) while <>;
# $line is the random line