Here was my contribution from a few weeks ago.
Note: chipmunk deserves nearly all of the credit (or blame) for this one.

use LWP::Simple;print+(get"http://3467251276/?node=112874")=~/(\*.*?)<
+/s
[download]

-Blake