sub debuglogger {
  my $msg = shift;
  if ($DEBUG) {
    print STDERR "$msg\n";
  }
}

##</code><code>##

's/sub\s+(\w+)\s+{/sub $1 { debuglogger("entering $1"); /'