[% PERL %] open FH, "Quote.txt"; my @quotes = split "\n%%\n", (join '', ); srand; print $quotes[rand $#quotes + 1]; close FH; [% END %]