perl -e'while(<>){$a.=$_;}@b=split/!!\n/,$a;print$b[int rand@b];' \
/my/quotefile