Select Code to Download

  sub _extract {
    my ($funct,$Jscript) = @_;
...
        print "Matched :\n",$1;
    } 
  }

  foo (a, b, c) {
    if (c) { a++; } else { b--; }
...
    if (d) { e++; } else { f = g + h; }
    print "ho";
  }