perl -MLWP::Simple -e '@_ = split/\%\n/, get(q(http://phd.pp.ru/Texts/fun/signatures.txt));print splice @_, @_*rand,1'