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