Select Code to Download

corion@brother:~$ perl -le 'while ("this_is_broken_" =~ /(.*?)_/gs) {_
+/gs) {
  print "($1) ";
...
'
(this)
corion@brother:~$

corion@brother:~$ perl -V
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuratio
+n:
...
    /usr/local/lib/perl5/site_perl/5.6.1
    /usr/local/lib/perl5/site_perl
    .

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web