Select Code to Download

#!/usr/bin/perl
use strict;
...
  if (d) { e++; } else { f = g + h; }
  print "ho";
}

Matched :
foo (a, b, c) {
   if (c) { a++; } else { b--; }
   print "hi";
}