use LWP::Simple;print+(get"http://perlmonks.org/?node=112874")=~/(\*.*?)</s