in reply to Random Darwin Award in plain text
perl -MLWP::Simple -e '@_ = split/\%\n/, get(q(http://phd.pp.ru/Texts/ +fun/signatures.txt));print splice @_, @_*rand,1' [download]