Help for this page

Select Code to Download


  1. or download this
    $_=($_=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
  2. or download this
    $_=($_=LWP::UserAgent->new,$_->agent("Mozilla/5.0"),
$_=$_->request(HTTP::Request->new
(GET,"http://www.google.com/search?q=japh"))->content)
   ? join(q/ /, split(q{_}, (/(just.+?hacker)/si)[0]))
   : $;; print; use LWP::UserAgent