$_=($_=LWP::UserAgent->new->request(HTTP::Request->new
(GET,"http://www.perlmonks.org/?node_id=735555"))->content)
  ? join(' ', split(/\W+\w+?\W/, (/.+(just.+?hacker).+/si)[0]))
  : $;; print; use LWP::UserAgent