$_=($_=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