use LWP::Simple; get('http://perlmonks.org/index.pl?node_id=243219') =~ m|.*

(.*?)

.*| and print $1;